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1.  OVERVIEW 


1 .1  Objectives 

The  specific  objectives  of  this  study  were  to  develop  a 
GL/SLS  LOCK  CAPACITY  MODEL  to  be  used  as  a  planning  tool  to  deter¬ 
mine  if,  or  when  in  time,  the  Soo,  Welland,  and  St.  Lawrence  Lock 
Systems  can  be  expected  to  reach  capacity  as  a  function  of: 

•  Cargo  Traffic  Projections 

•  Vessel  Fleet  Projections 

•  Vessel  Operating  Characteristics 

and  Locking  Times 

•  Lock  Operating  Characteristics 

•  Length  of  Navigation  Season 

•  Available  Operating  Time  (Weather,  Delays, 

Lock  Malfunction  Delays,  Daylight-Only 

Navigation) 

•  Pleasure  Craft  and  Non-Commercial  Vessel 

Locking  Requirements 

•  Winter  Vessel  and  Lock  Opening  Procedures 

Overall,  the  GL/SLS  LOCK  CAPACITY  MODEL  can  be  described 
as  a  queuing  model  which  analyzes  steady-state  lock  operatons  and 
vessel-lock  interaction.  For  a  given  set  of  the  above-listed 
data  and  a  specific  year,  the  GL/SLS  LOCK  CAPACITY  MODEL  generates 
the  following  output  for  14  separate  time  periods  (10  months  plus 
early  and  late  April,  and  early  and  late  December): 

•  Cargo  Transported  by  Commodity  and 

Di recti  on 

•  Vessel  Operating  Fleet 

•  Yearly  Vessel  Transit  Demand  by 

Vessel  Class,  Commodity,  and 

Direction 


Daily  Vessel  Transit  Demand  by 
Di recti  on 
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•  Lock  Cycle  Time  by  Direction 

(Mean  and  Standard  Deviation) 

•  Average  Vessel  Waiting  Time  by 

Direction 

•  Average  Vessel  Queue  Length  by 

Direction 

•  Lock  Utilization 

•  Vessel  Delay  Costs 


1 .2  Envi ronment 

The  6L/SLS  LOCK  CAPACITY  MODEL  was  developed  for  and  sub¬ 
mitted  to  the  Department  of  the  Army,  North  Central  Division, 

Corps  of  Engineers  by  ARCTEC,  Incorporated,  the  sole  developer 
of  the  6L/SLS  LOCK  CAPACITY  MODEL.  The  model  is  intended  for  use 
by  the  Corps  of  Engineers  as  a  planning  tool  to  determine  when 
lock  capacity  is  reached  for  the  Soo,  Welland,  and  St.  Lawrence 
River  lock  systems  and  to  analyze  the  influence  of  factors  causing 
capacity.  Production  runs  have  been  performed  by  ARCTEC,  Incor¬ 
porated  for  the  Corps  of  Engineers  to  determine  when  the  Soo, 
Welland,  and  St.  Lawrence  River  lock  systems  reach  capacity  under 
existing  conditions,  and  with  the  incorporation  of  several  non- 
structural  and  structural  alternatives  for  improving  system 
capacity. 

The  GL/SLS  LOCK  CAPACITY  MODEL  was  run  on  a  Boeing  Computer 
Services  (BCS)  CDC  mainframe  computer  under  their  EKS  operating 
system.  BCS  maintains  CDC  Cyber  175  and  CDC  6600  computers. 


1 .3  Program  Specifications 

The  GL/SLS  LOCK  CAPACITY  MODEL  is  able  to  handle  multiple 
runs  consisting  of  different  combinations  of  lock  system(s)  and 
locking  time  range(s)  in  one  job.  It  can  also  run  combinations 
of  such  capacity  expansion  measures  as  changes  in  locking  times, 
changes  in  draft,  and  changes  in  lock  size. 

The  main  program  consists  of  a  mainl ine  .program  and  10 
separate  modules.  The  mainline  program  orders  the  execution  of 
the  10  modules,  which  perform  separate  sections  of  the  analysis. 
A  conceptual  flow  diagram  of  the  GL/SLS  LOCK  CAPACITY  MODEL 
appears  in  Figure  1.1.  Specifications  for  the  GL/SLS  LOCK  CA¬ 
PACITY  MODEL,  DATA  FILES,  and  OUTPUT  FILES  are  listed  in  Table 
1.1. 
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TABLE  1.1 


SPECIFICATIONS  FOR  THE  GL/SLS  LOCK  CAPACITY 
MODEL,  DATA  FILES,  AND  OUTPUT 

LOCK  CAPACITY  MODEL 
Language: 

Core  Required  for  one  Run:* 

Program  Size: 

ASCII  Listing 
Binary  Compilation 

DATA  FILES 

Size  Per  Lock  System:  31  PRU's 

2718  PRU's 
21,129  Lines 

12  CP  secs 
40  CP  secs 

439  (includes  all  three  locks, 
execution  only) 

$0,030  to  0.075 

*0ne  run  consists  of  ail  three  lock  systems. 


CDC  Compatible  FORTRAN 
160,000  Octal  Words 

189  PRU's 
217  PRU's 


2.  INPUT  DATA  FILES 


2.1  Introduction 

The  GL/SLS  LOCK  CAPACITY  MODEL  consits  of  a  main  program 
and  three  (3)  separate  data  files.  This  section  on  the  input  data 
files  presents  a  list  and  detailed  discussion  of  all  the  variables 
that  appear  in  the  input  data  files  as  well  as  a  discussion  of 
how  certain  variables  may  be  manipulated  to  vary  the  results  of 
the  Lock  Capacity  Analyses. 

Each  Lock  System  is  represented  by  its  own  data  file.  Each 
data  file  contains  not  only  system,  lock,  and  vessel  data,  but 
also  contains  run  parameters.  System,  lock,  and  vessel  data  in¬ 
clude  operating  conditions,  route  data,  available  operating  time, 
locking  times  and  locking  characteristics,  and  vessel  character¬ 
istics.  Run  parameters  determine  the  lock  system,  maximum  vessel 
class,  locking  time  range(s),  and  season  extension(s)  to  be  ana¬ 
lyzed.  A  complete  list  and  description  of  all  input  variables  can 
be  found  in  Table  2.1  at  the  end  of  this  section. 


2.2  Run  Parameters 

The  run  parameters  determine  the  lock  system,  locking  time 
range(s),  and  season  estension(s)  that  are  used  in  the  lock  ca¬ 
pacity  analyses.  The  run  condition  data  is  contained  in  the  first 
four  lines  in  each  data  file,  the  first  of  which  contains  the 
go/no-go  flag  and  the  data  file  identifier.  A  data  file  is  iden¬ 
tified  by  a  1  ,  2,  or  3  in  the  data  file  identifier  column,  repre¬ 
senting  the  Soo,  Welland,  or  St.  Lawrence  lock  system,  respectively. 
To  run  any  particular  lock  system  a  1  must  appear  as  the  go/no-go 
flag,  as  a  0  indicates  that  the  lock  system  that  the  particular 
file  represents  is  not  to  be  analyzed.  The  same  1/0  designation 
is  used  to  choose  which  season  extension(s) ,  and  locking  time 
variation(s)  are  to  be  used.  The  program,  as  modified  for  this 
study,  is  able  to  run  only  Season  Extension  1  at  the  Soo  Locks 
(April  -  December)  and  Season  Extension  2,  which  denotes  the  same 
period  (April  -  December)  at  the  Welland  Canal  and  the  St.  Lawrence 
River  since  variations  in  season  extension  were  not  selected  by 
the  Corps  as  capacity  expansion  alternatives. 

The  ability  to  implement  a  capacity  expansion  measure  when 
capacity  is  reached  is  incorporated  in  the  program.  These  meas¬ 
ures  are  implemented  by  go/no-go  flags,  expansion  measure  identi¬ 
fiers,  and  the  appropriate  new  data  that  deals  with  the  expansion 
measure  at  the'  bottom  of  each  data  file. 
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2.3  System,  Lock,  and  Vessel  Data 

System,  lock,  and  vessel  data  includes  data  on  operating 
conditions,  available  operating  time,  locking  times,  vessel  char¬ 
acteristics,  route  data,  and  cargo  shipping  demand.  Data  per¬ 
taining  to  the  validation  of  the  base  year  is  also  included  in 
the  input  data,  such  as  the  transit  distribution  factors,  which 
determine  the  percentage  of  total  annual  loaded  transits  that 
occur  in  each  of  the  operating  periods.  A  complete  description 
of  each  variable  can  be  found  in  Table  2.1  on  the  following  pages. 
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TABLE  2.1 


INPUT  DATA  (IN  ORDER  OF  OCCURRENCE) 


GONOGO 

IS 

LU 

ISES ( 4 ) 
ILTM(3) 
ZBHF(12) 
FACTOR 

CALFAC 


SYSFAC 

SYSADD 

SYSTIM 

ADDPCT( 6,12) 
CC(12 ,6) 
TDF(12 ,14) 


WHEAT (80, 3) 

STLPRD(80,3) 

GENCAR(80,3) 

S0Y(80,3) 

BLYRYE(80,3) 


Go/no-go  flag  (See  Section  3.1) 

Data  file  identifier  (See  Section  3.1) 

Maximum  vessel  class 

Season  extension  identifier  (See  Section  3.1) 
Locking  time  range  identifiers  (See  Section  3.1) 
Ship  utilization  factors 

Cargo  Multiplier:  Can  be  used  to  vary  the  total 
cargo  potential  for  sensitivity  analyses 

System  queue  length  and  waiting  time  multiplier: 
CALFAC  accounts  for  the  number  of  non-constraining 
locks  in  the  Welland  Canal  and  the  St.  Lawrence 
River. 

System  lock  cycle  time  multiplier:  SYSFAC  accounts 
for  the  number  of  non-constraining  locks  in  the 
Welland  Canal  and  the  St.  Lawrence  River. 

Time  spent  in  the  flight  locks  -  hours 

Round  trip  time  in  the  Welland  Canal  and  the  St. 
Lawrence  River  minus  time  spent  in  the  locks  and 
lock  queues  -  hours 

Fleet  mix  ship  building  percentages  as  a  function 
of  commodity  and  vessel  class 

Carrying  capacities  as  a  function  of  vessel  class 
and  commodity  -  short  tons 

Transit  distribution  factors:  TDF  represents  the 
percentage  of  annual  loaded  transits  occurring  in 
each  of  the  14  operating  periods  for  the  base  year 
validation.  TDF  is  a  function  of  vessel  class  and 
operating  period.  These  are  only  used  for  vali¬ 
dation. 


Cargo  Projections  for  wheat:  WHEAT  is  a  function  of 
year  and  direction  (upbound,  downbound,  or  total) 

Same  as  above  for  steel  products 

Same  as  above  for  general  cargo 

Same  as  above  for  soybeans 

Same  as  above  for  barley  and  rye 
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TABLE  2.1  (CONTINUED) 


CORN (80, 3) 

Same  as  above  for  corn 

0ILSD(80,3) 

Same  as  above  for  oilseeds 

ALMSTN(80,3) 

Same  as  above  for  limestone 

AIR0RE(80,3) 

Same  as  above  for  iron  ore 

RAWMAT (80,3) 

Same  as  above  for  raw  materials 

COAL (80, 3) 

Same  as  above  for  coal 

PETROL (80, 3) 

Same  as  above  for  petroleum  products 

CEMENT (80, 3) 

Same  as  above  for  cement 

AMIN(80,3) 

Same  as  above  for  nonmetal ic  minerals 

DRYBLK(80,3) 

Same  as  above  for  dry  bulk 

DATM(14) 

Operating  hours  per  day  for  each  operating  period. 
DATM  is  a  function  of  operating  period. 

TML0CK(12,2,4) 

Normal  range  of  locking  times  in  minutes:  TML0CK 
is  a  function  of  vessel  class,  direction,  and  lock. 

TLTML2(12,2,4) 

Low  range  of  locking  times 

TLTML3(1 2,2,4) 

High  range  of  locking  times 

STDEV( 1 2,2 ,4) 

Locking  time  standard  deviation  in  minutes:  STDEV 
is  a  function  of  vessel  class,  direction  and  lock. 

BTF4 

Base  year  bias  traffic  factor  for  early  April:  If 
BTF4  =  1.0,  maximum  bias  is  obtained;  if  BTF4  =  0.0, 
zero  bias  is  obtained. 

BTF5 

Base  year  bias  traffic  factor  for  late  April 

BTF13 

Base  year  bias  traffic  factor  for  early  December 

BTF14 

Base  year  bias  traffic  factor  for  late  December 

TUR.NBK(2) 

Turnback  time  in  minutes:  TURNBK  is  a  function  of 
lock 

XSHIP(12) 

Vessel  operating  costs  in  $/hr:  XSHIP  is  a  function 
of  vessel  class 

XCAP(12) 

Vessel  capital  costs  in  $/hr:  XCAP  is  a  function  of 
vessel  class 

PCRF(14,2) 

Pleasure  craft  and  ice  lockages  in  lockages  per  day: 
PCRF  is  a  function  of  operating  period  and  direction. 

FL0AD(6) 

Loading  factor:  FL0AD  accounts  for  broken  stowage 
space  in  the  cargo  vessels.  FL0AD  is  a  function  of 
commodity. 

DISTN(2,6) 

'  Mean  one-way  distances  in  miles:  DISTN  is  a  function 
of  direction  and  commodity. 
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TABLE  2.1  (CONTINUED) 


FILL(6,12) 

EMPTY(6,12) 

HRS(14,4,6) 

VSA( 14,12 ,4) 

DIN(14,4) 

PO (80 ,12) 

BASEFT(6,12) 

BTF(14,4) 

TDFCX(5,4) 

CAP  INC.(  12) 


Loading  rate  in  short  tons  per  hour:  FILL  is  a 
function  of  commodity  and  vessel  class. 

Unloading  rate  in  short  tons  per  hour:  EMPTY  is  a 
function  of  commodity  and  vessel  class. 

Available  operating  hours  per  operating  period: 

HRS  is  a  function  of  operating  period,  season 
extension,  and  commodity.  Cargo  will  be  transported 
in  any  operating  period  with  a  non-zero  entry  for  HRS. 

Vessel  speed  of  advance  in  miles  per  hour:  VSA  is  a 
function  of  operating  period,  vessel  class,  and 
season  extension.  Vessel  classes  can  be  prohibited 
from  operating  in  certain  operating  periods  (winter 
periods)  by  setting  VSA  for  that  particular  class 
and  operating  period  to  zero  (this  has  and  can  be 
done  in  the  program  also  (See  Section  5.4.1)). 

Relative  demand  indexes:  DIN  represents  the  relative 
demand  for  cargo  to  be  shipped  during  each  operating 
period  and  so  influences  the  tonnage  distribution 
over  the  year.  DIN  accounts  for  the  start-up  and 
slow-down  at  the  beginning  and  end  of  operating  season 
and  was  chosen  to  duplicate  the  start-up  and  slow-down 
observed  in  the  base  year.  DIN  may  be  any  number  from 
00.0  to  99.9  and  is  a  function  of  operating  period  and 
season  extension. 

Vessel  phase-out  fractions:  PO  accounts  for  old 
vessel  phase-out  and  represents  the  percentage  of 
vessels  phased  out  of  each  class  for  each  year.  PO 
is  a  function  of  year  and  vessel  class. 

Zero-backhaul  base  year  fleet:  BASEFT  was  arrived  at 
through  validation  and  is  a  function  of  commodity 
and  vessel  class. 

Biased  traffic  factors  for  non-base  year  analyses.  If 
BTF  =  1.0,  maximum  bias  results;  if  BTF  =  0.0,  minimum 
bias  results  (See  Section  4.4).  BTF  is  a  function  of 
operating  period  and  season  extension. 

Transit  distribution  factors  for  extended  season  grain 
and  general  cargo:  Because  extended  season  grain  and 
general  cargo  are  distributed  evenly  over  the  extended 
season,  the  transit  distribution  factors  must  be 
specified.  Note  that  TDFCX  sums  to  one  for  both 
commodities  in  order  to  transport  exactly  the  extended 
season  tonnage  potential.  TDFCX  is  a  function  of  season 
extension  periods  and  season  extension. 

'  Capacity  increase  with  increases  in  system  draft:  CAPINC 
is  a  function  of  ship  class  and  is  tabulated  in  short 
tons  per  year. 
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TABLE  2.1  (CONTINUED) 


ICAPX  Go/no-go  flag:  ICAPX  determines  whether  to  imple¬ 
ment  a  capacity  expansion  measure  or  not  (1  =  yes, 

0  =  no) 

MEASUR  Capacity  expansion  measure  identifier: 

1  -  Locking  time  and  reductions 

2  -  Construct  larger  locks 

3  -  Increase  allowable  ship  draft 

FOR  MEASUR  =  1 

REDLT(3,2,5)  Locking  time  reduction  factors:  REDLT  is  a  function 

of  lock  system  (Soo,  Welland,  St.  Lawrence),  direction, 
and  alternative. 

NHOWTO  Alternative  identifier 

FOR  MEASUR  =  2 


NEWLU 
ZBH  F( 1 2 ) 
ADDPCT(6,12) 

CC( 12,6) 
TML0CK(12,2,4) 
TLTML2(  12,2,4) 
TLTML3(12,2,4) 
STDEV(12,2,4) 

FILL(6 ,12) 
EMPTY(6,12) 
VSA(14,12,4) 
P0(80,12) 

CAPINC(12) 

FOR  MEASUR  =  3 


New  maximum  vessel  class 

Same  as  previous  ZBHF,  but  for  additional  vessel  classes. 

Same  as  previous  ADDPCT  but  for  additional  vessel 
classes 

Same  as  previous  CC  but  for  additional  vessel  classes 

Same  as  previous  TMLOCK  but  for  additional  vessel  classes 

Same  as  previous  TLTML2  but  for  additional  vessel  classes 

Same  as  previous  TLTML3  but  for  additional  vessel  classes 

Same  as  previous  STDEV  but  for  additional  vessel  classes 
Same  as  previous  FILL  but  for  additional  vessel  classes 
Same  as  previous  EMPTY  but  for  additional  vessel  classes 
Same  as  previous  VSA  but  for  additional  vessel  classes 
Same  as  previous  PO  but  for  additional  vessel  classes 
Same  as  previous  CAPINC  but  for  additional  vessel  classes 


DRAFT 


New  allowable  ship  draft  through  the  system 


LOCKS 


Go/no-go  flag  that  allows  implementation  of  new  locks 
along  with  deeper  draft.  (0  =  no,  1  =  yes) 


2-6 


3.  COMPUTER  USAGE 


3.1  Selecting  the  Run  Parameters 

The  run  parameters  determine  which  system(s),  maximum 
vessel  class(es),  season  extension(s) ,  and  locking  time  range(s) 
are  analyzed.  These  run  parameters  appear  in  the  first  four 
lines  of  each  data  file  as  shown  in  Figure  3.1. 


3.2  Running  the  GL/SLS  LOCK  CAPACITY  MODEL 

Experience  with  the  GL/SLS  LOCK  CAPACITY  MODEL  has  shown 
that  the  most  efficient  method  of  using  the  program  is  to  keep  the 
program  and  data  files  stored  in  separate  indirect  access  files 
and  to  run  the  program  from  the  terminal  in  the  remote  batch  mode. 
To  run  the  program  in  the  remote  batch  mode  the  user  must  use  a 
submit  file  to  submit  a  desired  job.  The  sample  submit  file  in 
Figure  3.2  was  used  to  submit  the  previously  compiled  program. 


3.3  Output 

Results  are  printed  as  nine  tables  in  the  following  order: 

Projected  Cargo  Tonnage 
Fleet  Mix 

Vessel  Characteristics 
Yearly  Transits 
Daily  Transit  Demand 
Actual  Transits 
Queuing  Information 
Delay  Cost 
Actual  Cargo  Flow 

Data  is  printed  out  as  a  function  of  operating  period,  com¬ 
modity,  vessel  class  and  direction  through  the  locks.  For  purposes 
of  this  project  the  delay  cost  output  has  been  suppressed.  A 
sample  copy  of  one  year  of  one  run  appears  in  Appendix  D. 
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FIGURE  3.1 


SAMPLE  RUN  PARAMETERS 


1,3  GONOGO,  Data  File  Identifier 

7  Maximum  Vessel  Class 


0,1, 0,0  Season  Extensions 

1,0,0  Locking  Times  (Normal,  Low,  High) 


•  The  go/no-go  flag  should  be  1  for  a  data  file  if  that 
particular  system  is  to  be  analyzed,  and  0  if  not. 

•  The  Data  File  Identifier  should  be  left  constant;  1 
signifies  the  Soo  system,  2  the  Welland  Canal,  and  3 
the  St.  Lawrence  River. 

•  Vessel  Class  is  for  baseline  only.  New  vessel  classes 
are  input  with  expansion  measure  data. 

•  The  four  figures  in  the  line  labeled  "Season  Extensions" 
represent  from  left  to  right,  season  extension  1,  2,  3, 
and  4.  A  1  in  the  appropriate  space  denotes  that  the 
season  extension  is  to  be  analyzed  while  a  0  denotes 
that  it  is  not.  Note  that  the  program  is  now  only 
capable  of  running  April  thru  December  which  corres¬ 
ponds  to  season  extension  1  at  the  Soo  and  season 
extension  2  at  the  Welland  and  St.  Lawrence  River. 

This  is  due  to  the  fact  that  the  expansion  alternatives 
selected  by  the  Corps  did  not  include  season  extension. 
The  program  was  therefore  modified  and  streamlined  in 
that  area. 

•  The  three  figures  on  the  line  labeled  "Locking  Times" 
represent,  from  left  to  right,  normal,  low,  and  high' 
locking  time  ranges.  Again,  the  same  run/no-run  con¬ 
vention  applies. 


FIGURE  3.2  SAMPLE  SUBMIT  FILE 

ANAL0K,CM20600,T200. 

USER ,CEF21 8 ,ARCTEC . 

GET,TAPE1=NWS00. 

GET,TAPE2=NWWEL. 

GET,TAPE3=NWSLS. 

GET,TAPE3=NWSLS. 

BREVIS. 

EXIT.U. 

REWIND, OUTPUT. 

COPYCF, OUTPUT, BUGS. 
REPLACE, BUGS. 

REWIND, TAPE8. 

COPYCF, TAPE8, TABLES. 
REPLACE, TABLES. 

REWIND, TAPE9 
COPYCF, TAPE9,DBG0UT. 
REPLACE, DBGOUT. 

COST. 

DAYFILE, ERROR. 

REPLACE, ERROR. 


FIGURE  3.2  SAMPLE  SUBMIT  FILE  (CONTINUED) 


12-14 

15-17 


18 

19-20 


User,  Memory  Limit,  Time  Limit 
ID#,  Password 

Get  a  copy  of  the  LOCK  CAPACITY  MODEL  (Compiled 
Version)  from  the  files 

Get  a  copy  of  the  Soo  data  file 

Get  a  copy  of  the  Welland  data  file 

Get  a  copy  of  the  St.  Lawrence  data  file 

Execute  the  program 

If  there  are  execution  errors,  this  allows  the 
rest  of  the  submit  file  to  be  executed. 

Rewinds  and  copies  the  load  map  to  the  file  BUGS 
and  stores  it  as  an  indirect  access  permanent 


Rewinds  and  copies  the  output  to  file  TABLES  and 
stores  it  as  an  indirect  access  permanent  file 

Rewinds  and  copies  a  debugging  file  produced  by 
WRITE  statements  in  the  program  to  a  file  DBGOUT 
and  stores  it  as  an  indirect  access  permanent 
file 

Gives  the  total  cost  of  the  job 

Copies  the  dayfile  (which  is  a  record  of  the  sta¬ 
tistics  of  the  run)  on  the  file  ERROR  and  stores 
it  as  an  indirect  access  permanent  file. 


Once  the  submit  file  has  been  created  the  job  can  be  submitted 
with  the  commands: 


GET,submitfilename 
z  SUBMIT, submitfilename,NL 
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4.  PROGRAM  MAINTENANCE 


The  GL/SLS  LOCK  CAPACITY  MODEL  consists  of  a  mainline  pro¬ 
gram  which  is  divided  into  ten  (10)  separate  modules,  and  three 
(3)  separate  data  files.  This  section  on  program  maintenance 
presents  detailed  descriptions  of  the  mainline  program  and  the 
individual  modules.  A  detailed  discussion  of  the  data  files  can 
be  found  in  Section  2. 


4.1  Mainline  Program 

The  purpose  of  the  mainline  program  is  to  receive  the  data 
files,  establish  the  common  blocks,  dimension  variables  not  in 
the  common  blocks,  to  initialize  certain  variables  through  the 
use  of  data  statements,  to  order  the  execution  of  the  modules, 
and  to  control  the  execution  of  the  GL/SLS  LOCK  CAPACITY  MODEL. 

As  the  program  listing  (Appendix  B)  indicates,  the  mainline  pro¬ 
gram  begins  by  defining  tape  numbers  which  correspond  to  the 
data  files  and  output  files  as  follows: 

TAPE  1  -  S00  DATA  FILE 

TAPE  2  -  WELLAND  DATA  FILE 

TAPE  3  -  SLP  DATA  FILE 

TAPE  8  -  OUTPUT  FILE 

TAPE  9  -  DEBUG  FILE  FOR  INTERNAL  DEBUGGING  WRITE  STATEMENTS 

HELP  -  DEBUG  FILE  FOR  CDC  SUPPORTED  DEBUG  SOFTWARE  OUTPUT 

The  program  header  is  followed  by  the  common  definitions,  the 
dimension  statements,  and  the  data  statements.  A  list  and  brief 
description  of  the  common  blocks  can  be  found  in  Appendix  A.  A 
list  and  brief  description  of  the  data  statements  can  be  found 
in  Tabl e  4. 1 . 

Following  the  data  statements,  the  program  reads  the  go/no- 
go  flag  in  the  first  lock  system  data  file  to  determine  if  an 
analysis  of  that  lock  system  is  to  be  run.  Once  a  lock  system 
has  been  selected  the  first  module  begins  execution.  The  ten  (10) 
Modules  are  listed  below. 


t 
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TABLE  4.1  VARIABLES  IN  DATA  STATEMENTS 


ABTEST  Any  number  close  to  zero  (for  logical  comparisons) 

DM (14)  Days  per  period  (14  periods  per  year) 

I BMO (14)  Hollerith  constants  containing  the  names  of  the 

14  periods 

LMAX(12)  Maximum  length  of  vessels 

LM I N ( 1 2 )  Minimum  length  of  vessels 

M0NRAY(14)  Contains,  in  sequence,  the  periods  to  be  analyzed 
(eg:  MONRAY(l)  signifies  early  April,  which  is 
the  first  period  to  be  analyzed) 

NEXPG  Carriage  control  to  begin  each  table  on  a  new  page 

RHOMAX  Maximum  lock  utilization  allowed  for  all  locks 

except  for  the  Poe  Lock 

RHOPOE  Maximum  lock  utilization  allowed  for  the  Poe  Lock 

TIMES( 14)  Increase  in  locking  time  for  each  period  (mainly 

for  winter  months) 

TLOCKM  Typical  locking  time  for  the  MacArthur  Lock 

TTI  Transit  time  increase  factor  which  is  a  function 

of  the  month  and  increases  transit  times  due  to 
winter  conditions 


1.  Run  Set  Module  -  The  Run  Set  Module  reads  the  appro¬ 
priate  data  file,  determines  the  conditions  under  which  the  model 
is  to  be  run  (season  extension,  locking  time  variation)  assigns 
values  to  working  variables  in  accordance  with  the  specified  con¬ 
ditions,  and  initiates  the  major  do-loops  that  order  the  run. 

2.  Fleet  Determination  Module  -  The  Fleet  Determination 
Module  determines  the  required  zero  -  backhaul  fleet. 

3.  Transit  Forecast  Module  -  The  Transit  Forecast  module 
determines  the  number  of  loaded  and  ballast  transits,  pleasure 
craft  lockages ,  and  ice  lockages  that  occur  in  each  operating 
period  and  converts  the  zero  backhaul  fleet  to  the  real  fleet. 

4.  Ship  Dispatch  Module  (Soo  System  Only)  -  The  Ship 
Dispatch  Module  dispatches  ships  to  the  separate  Soo  Locks  on  the 
basis  of  equal  lock  utilization  or  equal  waiting  time. 

5.  Lock  Cycle  Time  Module  -  The  Lock  Cycle  Time  Module 
determines  the  mean  lock  cycle  time  for  a  particular  lock  and 
fleet  mix. 

6.  Lock  Queueing  Module  -  The  Lock  Queuing  Module  deter¬ 
mines  the  length  of  the  incoming  queue  and  the  waiting  time  for 
a  particular  lock  and  fleet  mix. 

7.  Economic  Module  -  The  Economic  Module  converts  the 
average  waiting  time  into  the  delay  cost  for  each  lock  and  vessel. 

8.  Cargo  Tonnage  Module,  System  Round-Trip  and  Waiting 
Time  Module  -  This  module  computes  the  projected  cargo  flow  and 
the  actual  cargo  flow  for  each  period  and  commodity.  It  also 
calculates  the  time  it  takes  for  a  vessel  to  make  one  round-trip 
in  the  Welland  Canal  and  the  St.  Lawrence  River  including  time 
spent  in  queues  and  slowdowns  due  to  weather  conditions. 

9.  Output  Module  -  The  Output  Module  assembles  the  data 
generated  by  the  other  modules,  assigns  the  data  to  working 
variables  for  printout  purposes,  and  produces  the  output  file. 

10.  Capacity  Expansion  Module  -  After  the  system  reaches 
capacity  this  module  reads  in  new  data  and  initializes  the  appro¬ 
priate  variables  for  the  particular  capacity  expansion  measure 
that  is  to  be  analyzed.  The  module  then  returns  control  back  to 
the  beginning  of  the  yearly  loop  and  resumes  execution  until 
capacity  is  reached  again,  whereupon  a  new  measure  can  be  imple¬ 
mented.  The  program  also  has  the  option  to  halt  whenever  the 
system  reaches  capacity. 
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4.2  The  Run  Set  Module 


* 


The  purpose  of  the  Run  Set  Module  is  to  read  the  appropri¬ 
ate  data  file,  determine  the  conditions  under  which  the  model  is 
to  be  run,  assign  values  to  working  variables  in  accordance  with 
the  specified  conditions,  and  inititate  the  major  do-loops  that 
order  the  run.  The  first  step  in  the  Run  Set  Module  is  to  CALL 
READIN,  which  reads  in  the  system  data  and  run  data.  Once  the 
locking  time  variation(s) ,  season  extension(s) ,  and  maximum  ship 
class  are  known,  the  locking  times  are  set  in  subroutine  TLOCMT 
and  the  cargo  projections  are  set  in  subroutine  SESONS. 

Input  and  output  data  are  identical  due  to  the  fact  that 
the  Run  Set  Module  is  basically  a  data  input  model.  Table  2.1 
contains  input/output  through  the  data  files. 

4.2.1  Subroutine  READIN 


The  purpose  of  subroutine  READIN  is  to  read  in  data  from 
the  appropriate  data  file  and  to  initialize  necessary  working 
variables  to  this  data.  Run  specification  variables  are  read  in 
first,  followed  by  system,  vessel,  and  lock  data.  Following  the 
data  read-in,  the  carrying  capacities  are  modified  and  assigned 
to  working  variables,  and  the  transit  modified  and  assigned 
to  working  variables,  and  the  transit  distribution  factors  for  the 
base  year  are  also  assigned  to  working  variables.  Also  the  15 
input  commodity  projections  are  collapsed  into  6  working  commod¬ 
ities;  ore,  coal,  stone,  grain,  other  bulk,  and  general  cargo. 

The  carrying  capacity  modification  allows  fine  tuning  of 
the  carrying  capacities  during  validation  and  the  same  mechanism 
can  be  used  for  sensitivity  analyses.  Because  only  three  carrying 
capacities  are  read  in  for  each  ship  (and  there  are  6-  commodities) 
the  carrying  capacities  are  assigned  under  the  rule  that: 


cc 

ore 

'"'"stone 

CCcoal 

CC grain 

'"’"other 

'"‘"general 

bulk 

cargo 

The  transit  distribution  factors  for  the  base  year  valida¬ 
tion  represent  the  percentage  of  annual  transits  occurring  for  any 
period  for  each  ship  class.  Because  there  are  only  three  values 
of  TDF  read  in'  per  period  (there  are  up  to  11  classes)  TDF  is 
assigned  under  the  following  rule: 
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Soo  System 


TDF 4  =  TDF 5 

TDFS  =  TDF7  =  TDF  a  =  TDF9 
TDF10  =  TDF1X 

Subrscripts  denote  vessel  class 
Welland  and  St.  Lawrence  River 

TDFh  =  TDF a 
TDF 5  =  TDF 7 

Note:  For  the  Welland  and  St.  Lawrence,  class 
6  denotes  oceans;  class  5  denotes  class 
5  and  6  lakers 

Because  subroutine  READIN  only  reads  in  data,  input  data 
and  output  data  are  identical.  Input/output  data  for  subroutine 
READIN  is  listed  in  Table  4.2. 

4.2.2  Subroutine  TLOCMT 

The  purpose  of  subroutine  TLOCMT  is  to  assign  low  or  high 
locking  times  to  the  locking  time  working  variable.  The  working 
variable  has  been  previously  initialized  to  the  normal  locking 
time  values  in  subroutine  READIN.  Input/output  data  is  listed  in 
Table  4.3. 

4.2.3  Subroutine  SESONS 


The  purpose  of  subroutine  SESONS  is  to  assign  the  correct 
season  extension  cargo  potential  to  the  working  variable  for  cargo 
potential.  Input/output  data  is  listed  in  Table  4.4. 


4.3  The  Fleet  Determination  Module 

The  purpose  of  the  Fleet  Determination  Module  is  to  de¬ 
termine  the  zero  -  backhaul  fleet  required  to  carry  the  specified 
cargo  given  the  system  and  vessel  characteristics.  The  entire 
Fleet  Determination  Module  is  contained  within  subroutine  FLEET. 
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TABLE  4.2  INPUT  AND  OUTPUT:  SUBROUTINE  READIN 


INPUT 

Through  the  Argument  List 


IS  Lock  System  identifier 

ISYST  Iteration  variable  for  lock  system 

KU  Number  of  different  locks 

IDEBUG  Logical  variable  for  debug  output 


OUTPUT 


Through  the  Argument  List 


LU 

FACTOR 

BTF4 

BTF5 

BTF13 

BTF14 

CAL FAC 

CARF 

SYSADD 

SYSFAC 

SYSTIM 

TDFCX(5,4) 


Maximum  vessel  class 
Cargo  multiplier 

Bias  traffic  factor  for  validation  -  early  April 

Bias  traffic  factor  for  validation  -  late  April 

Bias  traffic  factor  for  validation  - 
early  December 

Bias  traffic  factor  for  validation  - 
late  December 

System  Waiting  Time  Multiplier  (Number  of 
non-constraining  locks) 

Fraction  of  the  major  commodity  groups  (6)  that 
each  of  the  input  commodities  (15)  represent 
Time  spent  in  flight  locks 

System  Lock  Cycle  Time  Multiplier  (number  of 
non-constraining  locks) 

System  round-trip  time  minus  time  spent  in 
locks  and  queues 

Transit  distribution  fractions  for  extended 
season  grain  and  general  cargo 


Through  Common  CALCOM 

EXTPT(6»2,80)  Extended  season  cargo  potential  -  grain  and 

general  cargo 

HRS(14>4,6)  Operating  hours 
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TABLE  4.2  (Continued) 

TML0CK(12,2,4)  Normal  locking  time 

VSA(14,12,4)  Vessel  speeds  of  advance 

Through  Common  MINARY 

BASEFT{6,12)  Base  year  fleet 

CC (6,12)  Carrying  capacities 

D I STN (2,6)  Distance 

EMPTY(6,12)  Unloading  rate 

F ILL (6,12)  Loading  rate 

FL0AD(6)  Loading  factor 

PO (80 ,12)  Phase  out  fractions 

TDF (12,14)  Transit  distribution  factors  -  validation 

ZBHF(12)  Ship  utilization  factor 

ADDPCT(6,12)  Fleet  mix  ship  building  percentages 

Through  Common  PRELIM 

ISES(4)  Season  extension  indicator 

ILTM(3)  Locking  time  indicator 

Through  Common  DAT1 

BTF(14,4)  Bias  traffic  factors 

CAREX1 (6,2,80)  Season  extension  1  cargo  potential 

DATM(14)  Operating  hours  per  day  per  period 

DIN(14,4)  Demand  indexes 

IZBH(12)  Ship  utilization  factors 

PCRF(14,2)  Pleasure  craft  and  ice  lockages 

LYEAR(80)  Year  identifier 

STDEV(12,2,4)  Standard  deviation 

TLTML2(12,2,4)  Low  locking  time 

TLTML3(12,2,4)  High  locking  time 

TURNBK(4)  '  Turnback  time 


TABLE  4.2  (Continued) 


Note 


XCAP (12)  Ship  capital  cost 

XSH I P ( 1 2 )  Ship  operating  cost 

ZB ( 1 2 )  Ship  utilization  factor 


For  a  more  detailed  variable  description,  see  Appendix  A 


/ 
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TABLE  4.3  INPUT  AND  OUTPUT:  SUBROUTINE  TLOCMT 


INPUT 

Through  the  Argument  List 

LU  Maximum  vessel  class 

IS  Lock  system  identifier 

TLTML(12,2,2)  Locking  time  variable  that  is  either  TLTML2 

or  TLTML3 

Through  Common  CALCOM 

TML0CK(12,2,2)  Locking  time  working  variable 

OUTPUT 

Through  Common  CALCOM 

IML0CK( i2,2,2)  Locking  time  working  variable 

Note:  For  a  more  detailed  variable  description,  see  Appendix  A. 


TABLE  4.4  INPUT  AND  OUTPUT:  SUBROUTINE  SESONS 


INPUT 

Through  the  Argument  List 

Loop  index  for  season  extensions 

Cargo  tonnage  multiplier 

Cargo  tonnage  potential  input  label;  is  equal 
to  CAREX1  for  season  extension  1  and  CAREX2  for 
season  extension  2 

DIN(14,4)  Demand  indexes  per  operating  period  and  season 

extension 

OUTPUT 

Through  Common  CALCOM 

CARG0P(6,2,80)  Cargo  potential  working  variable 
TDIN  Total  of  the  input  demand  indexes 


ISN 

FACTOR 

CAREX(6,2,80) 
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4.3.1  Subroutine  FLEET 


Subroutine  FLEET  calculates  the  new  fleet  in  3  steps. 

1.  Establish  the  number  of  round-trips  one  ship  can  make 
in  one  year. 

2.  Update  the  base  year  fleet  and  calculate  the  annual 
transport  capacity  for  the  remaining  fleet. 

3.  Add  or  delete  ships  until  cargo  potential  =  transport 
capacity. 

Expanded,  the  steps  are  performed  as  follows: 

Step  1.  Calculate  the  number  of  round-trips  one  ship  can 
make  in  one  year. 


Round  Trips 
Per  Year 


TRIPYR.  .  =  HRSYR ,/TRIPTM .  . 
1,3  ^  1,3 


for  Commodity  i  and  Vessel  Class  j, 

K 

where  l  sums  over  the  periods  in  one  year 

]( 

Operating 

Hears  Per  =  HRSYR.  =2  HRS.  v 

Y  oa  y.  I  * >K 


Time  Per  _ 
Round-Tri p 


WIST . 

TRIPTM.  .  =  DF  x(2x  + 

VSM .  . 


CC.  .  FLOAD. 

_ 1 

EMPTY .  . 


CC. 


_L uL 


x  FLOAD. 


FILL .  . 

•z -,3 


■-)  + 


Mean 

Vessel 

Speed 


TIMELK  . 
J 


VSM.  . 
7*  ,3 


K 

_  l 


VS  A  .  .  „  X  HRS.  , 


HRSYR . 
v 


VSA  .  .  =  Vessel  speed  of  advance 

7',  3  a  F. 

HRS.  .  =  Operating  hours  per  period 

T',0 

CC ..  '  =  Carrying  capacity 

7',  3 

FILL.  .  =  Loading  rate 

1,3  5 


r 


empty.  .  =  Unloading  rate 

*'  y  v 

WDIST.  =  Round-trip  distance 
TIMELX ;  =  Time  spent  in  locks 

FLOAD  .  =  Loading  factor 

J 


Step  2.  Update  the  base  year  fleet  and  calculate  the  annual  transport 
capacity  for  the  remaining  fleet. 


Remaining 

Fleet 


FLEETR.  .  =  BASEFT.  .  X  (1  -  PO .  J 
1,0  1,0  J,X 


Transport 

Capacity  =  SHPCAP .  . 
By  Class 


=  FLEETR.  .  X  CC.  .X  TRIFYR .  .  X  FLOAD. 

1,0  1,0  1,0  0 


Annual  j 

Transport  =  AN CAP .  =  E  SHPCAP.  . 
Capacity  1 

for  Commodity  i  and  Year  X 

0 

where  E  sums  over  the  vessel  classes 


PO.  „  -  Phase  out  fractions 

"V  $  & 

BASEFT .  .  =  Base  year  fleet 

s  J 


Step  3.  Add  or  delete  ships  until  cargo  potential  =  transport  capacity 


Cargo  Surplus 
(or  Deficit) 


C ARGON.  =  CARGO?.  v  +  CARGO? .  „  ,  -  AN CAP . 
i  %tR,  up  z,K,  dn  i 


for  Commodity  i.  Vessel  Class  j,  and  Year  X 

where  CARGOP  =  Cargo  potential 

For  surplus  cargo,  ships  are  added  to  the  fleet  by  building 
percentages  according  to  ship  class. 

First  determine  what  composite  ship  (in  tons  of  capacity 
by  commodity)  is  to  be  added: 

Composite 

Ship  to  be  =  COMSHA.  =  E  {ADDPCT .  .  X  TRIPYR .  . 


X  CC.  .X  FLOAD.) 

1,0  1 
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where  ADDPCT .  .  =  fleet  mix  ship  building  percentage. 

Then  determine  the  number  of  ships  to  be  added  and 
calculate  the  new  fleet. 

Un  Ch-inc  CARGON. 

=  ADDSHP.  .  =  T^TTFTrr  x  ADDPCT .  . 
to  be  Added  z,j  COMSHA ^ 

New  fleet  =  FLEETN .  .  =  FLEETR .  .  +  ADDSHP.  . 

fjJ 

If  CARGON £  <  0  delete  ships  starting  with  the 
smallest  until  CARGON  =  0. 


Number  of  -CARGON  .  . 

Deleted  =  DELSHP i-=  .  x  TRIPYR .  /x  FLO AD  . 

*  v  St  1  -1  -1  -1 


Ships 


i,0 


^  3  0 


If  DELSHP.  .  >  FLEETR.  DELSHP .  .  =  FLEETR.  . 

‘L,0  -  1,0  1,0  ^,0 


•  Recalculate  CARGON. 


CARGON.  =  CARGON .  +  DELSHP.  .  x  CC .  .X  TRIPYR.  .  X 
t  v  v,Q  t,j 

FLOAD  . 

% 

•  Repeat  with  next  larger  ship  class  until  CARGON=0. 

•  Subtract  DELSHP.  .  from  FLEETR.  .  to  get  the  new 

^,t7  T-,0 


fleet,  FLEETN .  .. 

T',  0 

During  the  process  of  adding  ships,  Class  6 
vessels  are  not  added  for  ore,  coal,  stone,  or 
grain  in  the  Welland  and  St.  Lawrence  because 
for  these  systems  a  Class  6  vessel  denotes  an 
ocean  vessel . 

At  this  point  it  is  appropriate  to  point  out  that  the  new 
fleet  is  a  zero-backhaul  fleet  and  to  illustrate  how  the  approxi¬ 
mation  loop  is  used  to  get  an  accurate  actual  fleet.  This  is  done 
in  subroutine  TFRCT. 


t 


4-13 


The  Real  Fleet  =  SHIP.  .  =  FLEETN .  .  x  REDFT  . 

i>3  1,3 

for  Commodity  i  and  Vessel  Class  j 
where  REDFT.  is: 


REDFT 


J 


GBAL  . 

5  +  - — j -2 - 

GBAL  .  +  GLOAD  . 
3  3 


where 


GBAL.  =  Yearly  total  ballast  transits  of  class  j  vessels 

J 

GLOAD.  =  Yearly  total  loaded  transits  of  class  .  vessels 

J  0 

The  resulting  change  in  the  fleet  mix  may  cause  a  change 
in  the  capacity  analysis.  To  correct  this,  the  correct  fleet  is 
determined  in  3  iterations  by  the  IAPPROX  loop.  Input/Output 
data  for  subroutine  FLEET  is  listed  in  Table  4.5. 


4.4  The  Transit  Forecast  Module 

The  purpose  of  the  Transit  Forecast  Module  is  to  determine 
the  number  of  loaded  transits,  ballasted  transits,  pleasure  craft 
lockages,  and  ice  lockages  that  occur  for  each  of  the  14  periods. 
The  Transit  Forecast  Module  accomplishes  this  in  four  steps. 

1.  Loaded  transits  are  calculated  in  subroutine  LTRAN 

2.  Ballast  transits  are  calculated  on  the  basis  of  ship 
utilization  (input) 

3.  Bias  traffic  is  assigned  according  to  the  bias  traffic 
parameters  (input) 

4.  Pleasure  craft  and  ice  lockages  are  included  in  the 
transit  demand  (input) 

The  four  steps  above  are  performed  for  each  of  the  14 
operating  periods  as  dictated  by  a  loop  on  operating  periods  at 
the  beginning  o-f  the  module.  Steps  2,  3,  and  4  are  performed  in 
subroutine  TFRCT.  Input/Output  data  for  subroutine  TFRCT  is 
listed  in  Table  4.6. 
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TABLE  4.5  INPUT  AND  OUTPUT:  SUBROUTINE  FLEET 

INPUT 

Through  the  Argument  List 


INDEXC 

IAPPROX  -1 

IR 

Year  indicator 

ISN 

Season  extension  indicator 

IS 

Lock  system  indicator 

LU 

Maximum  ship  class 

Through  Common  MINARY 

BASEFT(6,12) 

CC(6,12) 

D I STN (2,6) 

EMPTY (6,12) 

FILL (6,12) 

FL0AQ(6) 

PO ( 80 ,12) 

REDFT(12) 

Through  Common  CALCOM 

CARG0P(6,2,80)  Cargo  projections 

HRS(14,4,6)  Operating  hours  per  period 

VSA(14,12,4)  Vessel  speed  of  advance 

OUTPUT 

Through  Common  MINARY 

FLEETN(6,12) 

HRSYR(6) 

VSM(12,6) 


New  fleet 

Operating  hours  per  year 
Mean  vessel  speed  per  year 


Base  year  fleet 
Carrying  capacity 
Distance 
Unloading  rate 
Loading  rate 
Loading  factor 
Phase  out  fractions 
Fleet  reduction  factor 
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TABLE  4.6 


INPUT  AND  OUTPUT:  SUBROUTINE  TFRCT 


INPUT 

BTF4 

BTF5 

BTF13 

BTF14 

BTF (14,4) 
CARGOP(6,2,80) 
DM (14) 

EXTPT(6 ,2 ,80) 

PCRF (14) 

ZBHF (12) 

OUTPUT 

DLTRN(12,3,14) 

DBTRN(12,3,14) 


Bias  traffic  factor  for  validation  -  early 
Apri  1 

Bias  traffic  factor  for  validation  -  late 
Apri  1 

Bias  traffic  factor  for  validation  -  early 
December 

Bias  traffic  factor  for  validation  -  late 
December 

Non-validation  bais  traffic  factors 

Cargo  potential  for  normal  fleet 

Days  per  operating  period 

Cargo  potenital  for  extended  season  grain 
and  general  cargo 

Pleasure  craft  and  ice  lockages  per  period 
Ship  utilization  factor 


Daily  loaded  transits  per  period 

Daily  ballast  transits  per  period  (also  in 
eludes  pleasure  craft  and  ice  lockages) 
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Before  the  Transit  Forecast  Module  calls  subroutine  LTRAN 
the  periods  are  sequenced  in  order  of  execution  by  the  array 
M0NRAY(14),  and  the  demand  indexes  (DIN)  are  converted  into  abso¬ 
lute  demand  factors  that  when  totaled  over  the  periods  for  one 
year  sum  to  1.0  (DFA).  At  this  point  subroutine  LTRAN  is  called. 
Subroutine  LTRAN  calculates  the  cargo  transits  per  period: 


Cargo  Transits 
Per  Period 


CTRNPM  ■  ■ 
'->3 


which  are  converted  into  average  daily  loaded  transits: 


DLTRN .  „ 

ZyX 


?.  CTRNPM .  . 

“ _ L iA. 

mK 


for  Commodity  i  and  Vessel  Class  j 

i 

where  I  sums  over  all  commodities 


and  DM  is  the  days  per  operating  period  for  operating  period  x. 

Actual  ballast  transits  range  from  the  maximum  of  one  bal¬ 
last  transit  for  every  loaded  transit  to  the  minimum  possible 
ballast  transits  (loaded  transits  up  -  loaded  transits  down). 
Exactly  where  in  this  range  the  number  of  ballast  transits  actually 
lie  is  determined  by  the  ship  utilization  factor  factor  ZBHF 
(previously  named  the  zero-backhaul  factor). 

When  ZBHF  =  1.0  there  is  total  ship  utilization  (minimum  ballast 
transits ) 

When  ZBHF  =  0.0  there  is  no  ship  utilization  (maximum  ballast 
transits) 


Example  :  calculate  ballast  transits  down 

EMPTY  =  ( DLTRN  .  )  -  ( DLTRN  .  ) 

down  J’  up 

If  EMPTY  >  0 

(DBTRN .  )  =  [(DLTRN.  )  +  EMPTY ]  X  (1  -  ZBHF.) 

3,R  (jp  JjA  Up  J 

If  EMPTY  <  0 

(DBTRN.  )  =  [(DLTRN  .  )  +  EMPTY ]  X  (1  -  ZBHF.) 

J,K  dn  down  J 
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The  amount  of  bias  traffic  is  determined  by  the  bias  traf¬ 
fic  factors,  where: 

BTF  =  1.0  causes  maximum  bias 
BTF  =  0.0  causes  no  bias 


Bias  traffic  is  generated  by  manipulating  the  ballast  transits  for 
the  desired  operating  period.  If  the  operating  period  is  an  end 
of  season  period  (such  as  late  December  or  January)  the  bias  is 
caused  by  decreasing  downbound  ballast  transits  as  shown  in  the 
following  equation: 


Daily 

Ballasted  =  DBTRN 
Trans i ts 


dn 


=  DBTRN d  x  (1  -  BTF ) 


If  the  operating  period  is  a  beginning  of  season  period  the  bias 
is  caused  by  increasing  the  upbound  ballast  transits  as  shown  in 
the  following  equation: 

Daily 

Ballasted  =  DBTRN  „  =  DBTRN  „  X  (1  +  BTF ) 

Transits  up  up 


Two  bias  factors  are  used;  one  for  the  validation  case  and 
one  for  projectec  conditions  (future  years  and  season  extension) . 
For  the  validation  case  the  bias  traffic  factors  are  BTF4,  BTF5 , 
BTF14,  and  BTF15.  For  projected  conditions,  the  array  BTF(14,4) 
contains  the  bias  traffic  factors  for  the  different  months  and 
season  extensions. 

Pleasure  craft  and  ice  lockages  are  input  as  the  number  and 
direction  of  lockages-  per  month  and  are  expressed  by  the  variable 
PCRF.  Pleasure  craft  and  ice  lockages  have  locking  times  equal 
to  the  locking  times  of  Class  4  vessels,  and  are  included  in  the 
program  and  output  as  "Class  3  Vessels". 

4.4.1  Subroutine  LTRAN 


The  purpose  of  subroutine  LTRAN  is  to  calculate  the  loaded 
transits  per  operating  period  as  a  function  of  cargo  potential 
(CARGOP),  vessel  fleet  (FLEETN),  operating  hours  (HRS),  vessel 
speed  of  advance  (VSA),  cargo  shipping  demand  (DFA),  and  extended 
season  cargo  distribution  requirements  (TDFCX). 

Subroutine  LTRAN  calculates  the  monthly  loaded  transits  in 
four  steps. 

1.  Prohibit  certain  vessel  classes  from  operating  during 
the  winter  months. 


2.  Calculate  or  assign  the  portion  of  total  annual 
transits  that  occur  in  each  period. 

3.  Calculate  the  annual  loaded  vessel  transits  of 
each  class  needed  to  transport  the  desired  cargo. 

4.  Calculate  the  number  of  loaded  transits  occurring 
in  each  operating  period  by  class,  commodity, 
and  direction. 

Step  1.  Prohibit  certain  vessel  classes  from  operating  during 
the  winter  months. 

Because  the  vessel  speed  of  advance  is  input 
as  a  function  of  ship  class,  operating  period  and 
season  extension,  any  class  vessel  can  be  prohibited 
from  operating  during  any  operating  period  by  set¬ 
ting  the  vessel  speed  of  advance  for  that  operating 
period  and  season  extenison  to  zero.  Although  we 
have  chosen  to  do  this  in  subroutine  LTRAN  (it  must 
be  done  in  subroutine  FLEET  for  consistent  results) 
the  vessel  speeds  of  advance  can  also  be  set  to 
zero  in  the  data  files. 

Step  2.  Calculate  or  assign  the  portion  of  total  annual  loaded 
transits  that  occur  in  each  period. 

The  transits  are  distributed  according  to 
three  methods,  depending  on  whether  the  validation 
case  is  being  run,  whether  the  cargo  is  to  be 
carried  by  a  specified  ship  class  in  extended 
season,  or  whether  the  cargo  to  be  carried  will  be 
carried  by  the  normal  fleet.  If  the  validation 
case  is  being  run,  transit  distribution  factors 
(TDF)  are  assigned  according  to  data  gathered  from 
lock  logs  and  traffic  reports.  If  the  cargo  is  to 
be  carried  by  a  specified  ship  class  in  extended 
season  (extended  season  grain  and  general  cargo), 
transit  distribution  factors  are  assigned  through 
the  array  TDFCX(5,4)  in  such  a  way  as  to  distribute 
the  transits  evenly  over  the  extended  season.  All 
normal  season  transits  and  extended  season  ore 
and  coal  transits  are  distributed  by  calculated 
transit  distribution  factors  according  to  fleet 
abilities  (VSA),  operating  conditions  (HRS),  and 
cargo  shipping  demand  (OFA),  as  follows: 
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ENDFAC .  . 

for  commodity  i  and  Vessel  Class  j 

K 

where  Z  sums  up  period  over  one  year 
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Step  3.  Calculate  the  annual  loaded  vessel  transits  of  each 
class  needed  to  transport  the  desired  cargo. 

The  cargo  distribution  by  class  (CDBC)  represents 
the  portion  of  cargo  transported  by  each  class.  CDBC 
is  a  function  of  the  new  fleet  (FLEETN),  the  number  of 
round-trips  per  year  (TRIPYR)  and  the  carrying  capacity 
(CC). 


Cargo 

Distribution  =  CDBC  .  . 
By  Class 


Tons  of  cargo  i 
carried  by  CLASS  p 
Total  Tons  of  cargo  j 


CDBC.  . 

1,0 


FLEETN.  .  X  CC.  .  X  TRIPYR.  .  X  FLO  AD . 

- rLi2 - .  - hJL - 1 

{CARGO? .) +  {CARGOP.) 

v  up  ^  down 


for  Vessel  Class  i,  Direction  l,  and  Commodity  j 


fleetn.  .  -  New  fleet 

CC .  .  =  Carrying  Capacity 

1,0 

TRIPYR.  .  =  Number  of  round-trips  per  year 

1,0 

CARGOP.  .  =  Cargo  projections 

1,0 


The  total  annual  loaded  vessel  transits  are  then: 


Cargo 

Transits 


=  CTRAN .  .  t 

T',0,1 


CDBC.  .  X  CARGOP.  7 
1,0  i,l 

CC.  .X  FLO AD. 

1,0  1 


Step  4.  Calculate  the  number  of  loaded  vessel  transits  ocurring 
in  each  operating  period  by  class,  commodity,  and 
direction. 


Loaded  vessel  transits  come  from  two  sources, 
one  being  the  normal  season  cargo  and  extended 
season  ore  and  coal  movements  and  the  other  being 
the  extended  season  grain  and  general  cargo  move¬ 
ments.  Transits  due  to  the  former  are  calculated 
as  follows: 


Cargo  Transits 

Per  Operating  =  CTRNPM .  .  , 

Period  i,0,*,l 


=  CTRAN.  .  i  X  TDFC .  .  „ 

1,0,1  1,0, K 
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where 


CTRAN  =  Cargo  transits  per  year 

TDFC  =  Transit  distribution  factor  (calculated) 

for  Commodity  i.  Vessel  Class  j,  Operating  Period  K,  and 
Direction  l. 

Input/Output  data  for  subroutine  LTRAN  is  listed  in 
Table  4.7. 


4.5  The  Ship  Dispatch  Module  (Soo  System  Only) 

The  Ship  Dispatch  Module  is  contained  within  the  subroutine 
DISPCH.  The  purpose  of  the  Ship  Dispatch  Module  is  to  dispatch 
the  incoming  vessel  arrivals  to  the  four  Soo  Locks.  Ships  are 
initially  dispatched  on  the  basis  of  size  limitations  (assigning 
ships  to  the  smallest  lock  that  the  ship  will  fit  into)  and  later 
modified  to  allow  ships  that  were  originally  dispatched  to  the 
MacArthur  Lock  to  use  the  Poe  Lock  if  the  MacArthur  Lock  experi¬ 
ences  significantly  more  traffic  than  the  Poe  Lock  and  the  Poe 
Lock  has  not  reached  its  maximum  lock  utilization.  Ships  are 
shifted  from  the  MacArthur  Lock  to  the  Poe  Lock  on  the  basis  of 
establishing  equal  waiting  times  or  equal  lock  utilization  at  the 
two  locks. 

For  the  expanded  locks,  that  can  occur  as  a  capacity  expan¬ 
sion  measure,  the  dispatch  logic  is  essentially  the  same.  Ships 
are  allocated  to  the  minimum  size  lock  they  can  fit  through. 
Input/Output  data  for  subroutine  DISPCH  is  listed  in  Table  4.8. 

Vessels  are  initially  assigned  to  the  Poe  and  MacArthur 
Lock  as  follows: 

POE  LOCK  MacARTHUR  Lo„«. 


Class  11,10,9,8  loaded  Class  7,6,5  loaded 

Class  11,10,9  ballasted  Class  8, 7, 6, 5  ballasted 


The  effective  difference  in  ship  arrivals  can  then  be  calculated 
by  taking  the  difference  in  ship  arrivals  weighted  on  locking 
times. 


Class  j 

Effective  _  AFITpnF  =  ARTCL  X  TLOCKM  -  POECL  X  TLCCKP 
Difference  PdiJ  &  "  TLOCKM  +  TLOCKP 


TABLE  4.7  INPUT  AND  OUTPUT:  SUBROUTINE  LTRAN 


INPUT 


Through  the  Argument  List 


IR 

ISN 

IS 

INDEXC 


Year  identifier 
Season  extension  identifier 
Lock  system  identifier 
IAPPROX  -  1 


Through  Common  CALCOM 

CARG0P(6,2,80)  Cargo  potential  for  the  new  fleet 
HRS(14,4,6)  Operating  hours  per  period 

VSA(14,12,6)  Vessel  speeds  of  advance 

Through  Common  MINARY 


CC(6,1?) 

DFA (14,4) 
FLEETN(6,12) 
FL0AD{6) 
HRSYR(6) 

TDF (12,6) 
VSM( 12,6) 


Carrying  capacities 
Absolute  demand  fractions 
New  fleet 
Loading  factor 
Operating  hours  per  year 

Transit  distribution  factors  -  validation  case 
Mean  vessel  speeds  for  the  year 


OUTPUT 

Through  Common  CALCOM 

CTRNPM(6,12,2)  Cargo  transits  per  period 


/ 
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TABLE  4.8  INPUT  AND  OUTPUT:  SUBROUTINE  DISPCH 


INPUT 


Through  the  Argument  List 


MN 

IS 

LU 

ISW 

RHOPOE 

JCT 

DATM(H) 


Month 

Lock  system 
Ship  class 

Flag  for  desired  dispatch  criteria: 

1  =  equal  waiting  *.  '.i.e  lasis 
0  =  equal  lock  utilisation  basis 

Maximum  lock  utilization  for  the  Poe 

Counter  for  number  of  iterations  used  to 
dispatch  ships  according  to  one  of  the  two 
dispatch  criteria 

Operating  hours  available  per  day  per 
operating  season 


Through  Common  QUECOM 

DLTRN{12 ,3,14)  Daily  loaded  transits 

DBTRN(12,3,14)  Daily  ballasted  transits 

Through  Common  Q 

RH0(2,1)  Lock  utilization  in  downbound  direction  for 

the  Poe  Lock 


OUTPUT 

Through  Common  Q 

ARTAR(12,2) 
POEAR (12,2) 
SABAR(12,2) 
DAVAR (12,2) 


/ 


Arrivals  at  the  MacArthur  Lock 

Arrivals  at  the  Poe  Lock 

Arrivals  at  the  Sabin  and  Davis  Locks 

Arrivals  at  the  new  Davis  Lock  (larger  lock) 
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where 


ARTCL  =  MacArthur  class  arrivals 

TLOCKM  =  Typical  lock  cycle  time  for  the  MacArthur 
Lock 

POECL  =  Poe  class  arrivals 

TLOCKP  =  Typical  lock  cycle  time  for  the  Poe  Lock 

If  the  MacArthur  Lock  is  experiencing  a  large  number  of  "effective 
arrivals,  MacArthur  class  ships  are  shifted  over  to  the  Poe  accord 
ing  to  the  replacement  fraction. 

Replacement  _  _  ARTPOE 

Fraction  "  mFCL  ~  ARTCL 

Then,  additional  Poe  arrivals  are: 


Additional 
Poe  Arrivals 


=  POEAR  =  DLTRN  .  X  RPMCL 


where 


DLTRN.  =  Daily  loaded  transits 
0 

with  j  varying  from  Class  5  to  Class  7. 

The  MacArthur  Lock  now  sees  fewer  arrivals. 


MacArthur 

Arrivals 


=  ARTAR  =  DLTRN  .  X  (1  -  RPMCL ) 
J 


with  j  varying  from  Class  5  to  Class  7. 


To  dispatch  ships  according  to  either  the  equal  waiting 
time  basis  or  the  equal  lock  utilization  basis  the  L'ock  Cycle  Time 
Module  and  the  Queuing  Module  must  be  run  to  calculate  the  waiting 
time  and  the  lock  utilization.  If  equal  waiting  time  is  desired 
and  the  waiting  time  at  the  Poe  Lock  is  greater  than  the  waiting 
time  at  the  MacArthur  Lock,  the  replacement  fraction  RPMCL  is 
decreased  and  the  waiting  time  is  recalculated  with  the  new  dis¬ 
tribution  of  ships  between  the  two  locks.  If  equal  lock  utiliza¬ 
tion  is  desired  TLOCKP  and  TLOCKM  are  updated  to  the  actual  values 
calculated  in  the  Lock  Cycle  Time  Module  and  the  Dispatch  Module 
is  executed  again. 
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Now,  if  the  capacity  expansion  measure  calls  for  larger 
locks  the  dispatch  of  ships  is  only  slightly  different.  The 
program  is  only  capable  of  doing  equal  lock  utilization  basis 
dispatching  when  larger  locks  are  built. 

If  a  vessel  Class  11  size  lock  is  built  vessels  are 
assigned  as  follows: 

Sabin  Lock 

Class  4  loaded 

Classes  4-8  ballast 

MacArthur  Lock 

Classes  5-7  loaded 

Poe  Lock 


Classes  8-10  loaded 
Classes  9-10  ballast 

New  Davis  Lock  (1350  x  115) 

Class  11  loaded  and  ballast 

If  Class  12  size  locks  are  built,  ships  are  allocated  as  follows: 
MacArthur  Lock 

Class  4-7  loaded  and  ballast 
Poe  Lock 


Classes  8-10  loaded  and  ballast 
Sabin-Davis  Lock  (1460  x  145) 

Classes  11-12  loaded  and  ballast 

Effective  arrival  differences  are  calculated  similar  to  above: 

Effective  .  tmrr  .  1^  x  TLOcm.)  .  (cy,  X  Twenty) 

Difference  AAU1 '  i  ~  TLOcm.  +  TLOcm 

1  1  +  1 


wnere 

CL ^  =  Ship  arrivals,  indexed  by  lock. 
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For  Class  11  Lock 


i  =  1  Sabin  Lock 

i  -  2  MacArthur  Lock 

i  =  3  Poe  Lock 

i  -  4  New  Davis  Lock  1350  x  115 

For  Class  12  Lock 

i  =  1  deleted 

i  =  2,3  same  as  above 

i  =  4  Sabin-Davis  Lock  1460  x  145 


TLOCKM =  Typical  lock  cycle  time,  indexed  same  as  above 


When  done  this  way,  lock  utilizations  are  equalized  between  all 
pairs  of  locks. 


Replacement 

Fractions 


RPLCL . 


ARDIF. 

_ v_ 

CL. 

t 


If  the  replacement  fractions  become  greater  than  0.005,  ships  are 
reallocated  to  the  next  larger  lock  until  the  lock  utilizations 
are  equal . 


4.6  The  Lock  Cycle  Time  Module 

The  Lock  Cycle  Time  Module  is  contained  in  subroutine 
CYCLTM.  Input/Output  variables  appear  in  Table  4.9.  The  purpose 
of  the  Lock  Cycle  Time  Module  is  to  calculate  the  mean  lock  cycle 
time,  the  variance  in  the  lock  cycle  time,  and  the  lock  utiliza¬ 
tion  for  each  lock  and  fleet  mix.  The  lock  utilization  calcula¬ 
tions  for  the  expanded  locks  (Classes  11  and  12)  are  presently 
contained  in  subroutine  DISPCH.  Before  the  lock  cycle  time  is 
calculated,  the  ship  arrivals  are  assigned  to  working  variables, 
the  arrival  rate  is  determined,  and  the  mean  locking  time  for 
each  direction  is  calculated. 

The  working  variable  for  ship  arrivals  is  S00AR.  S00AR  is 
defined  as  follows  for  the  three  lock  systems: 

For  the  Welland  and  St.  Lawrence: 

SOOAR  .  t.  v  -  DLTRN  .  v  +  DBTRN  .  „ 

J,K  j,K 

where  i  includes  both  the  constraining  and  the  non-con- 

straining  lock. 
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TABLE  4.9  INPUT  AND  OUTPUT:  SUBROUTINE  CYCLTM 


INPUT 

Through  Argument  List 

ROHMAX 

RHOPOE 

Through  Common  CALCOM 

TML0CK(12,2,4) 

Through  Common  0AT1 

DATM(14) 

STDEV(12,2,4) 

TURNBK(4) 

Through  Common  QUECOM 

DBTRN( 12,3,1 4) 
DLTRN(12,3,14) 

Through  Common  Q 

ARTAR(12,2) 
POEAR(l 2 ,2) 
SABAR(12,2) 

TIMES (14) 

OUTPUT 

Through  Common  Q 

CUTF(3,2) 

RAMDA (3,2) 

RHO (3,2) 

TMCYCL(3,2) 

SDEV(3,2) 


Maximum  lock  utilization 

Maximum  lock  utilization  for  the  Poe  Lock 


Locking  times  for  individual  vessels 


Operating  hours  per  day 
Locking  time  standard  deviation 
Turnback  time  for  the  lock 


Daily  ballast  transits 
Daily  loaded  transits 


MacArthur  Lock  arrivals 

Poe  Lock  arrivals 

Sabin  and  Davis  Lock  arrivals 

Percentage  increase  in  locking  time  due  to  ice 


Transit  cut-off  factor  for  capacity  conditions 
Vessel  arrival  rate 
Lock  utilization 
Mean  lock  cycle  time 

Standard  deviation  of  the  mean  lock  cycle  time 
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For  the  Soo 

Locks: 

SOOAR .  . 

i.J.R 

=  ?OEARv  . 

K,J 

i  =  Poe 

SOOAR.  :  v 

=  ARTAR,,  . 

E,J 

i  =  MacArthur 

SOOAR .  .  „ 

=  SABARV  . 

K,  J 

i  -  Sabin  and  Davis 

The  mean  vessel  arrival  rate  is  defined  as: 

DLTLOCK .  . 


RAMDA  - 


_LuI 


DATM,  x  60 

L 


where 


DTLOCK  =  Z  SOOAR .  .  „ 


Z  sums  over  the  vessel  classes 


for  Lock  i.  Direction  j  ,  and  Operating  Period  l. 


The  mean  one-way  lock  cycle  time  is  the  sum  of  the  locking 
time  for  each  individual  class  multiplied  by  the  fraction  of 
transits  that  each  particular  class  accounts  for. 


TMEAN.  . 


K 

Z 


SOOAR.  .  v 

{DTLdct. “  X  ™L0CKi3j,K  X  TIMEh] 
ijO 


Similarly,  the  locking  time  variance  is: 

K  SOORAR  .  . 

AVGVAR  -  1  {DTLOCF. ^  X  STEDVijJ  + 

X  ( TMLOCK .  .  „  -  TMEAN.  .  .  )2) 

^y  J  yR  ^y  0  y  ^ 


K 

v 


SCOAR  .  .  v 

( - 

v DTLOCK .  . 


The  mean  lock  cycle  time  (TMCYCL)  is  a  solution  to  several 
simultaneous  equations,  the  combination  of  which  appears  in  the 
Lock  Cycle  Time  Module.  The  mean  lock  cycle  time  has  as  its  max¬ 
imum  value  the  Heavy  Balanced  Lock  Cycle  Time,  defined  as: 


HBLCT  =  {TMEAN) up  +  ( TMEAN ) down 


If  the  mean  lock  cycle  time  becomes  greater  than  the  heavy  bal¬ 
anced  lock  cycle  time,  the  mean  lock  cycle  time  is  reassigned  as 
the  heavy  balanced  lock  cycle  time. 
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The  maximum  number  of  transits  per  day  that  the  lock  can 
handle  with  the  same  fleet  mix  can  then  be  defined  as: 


CAPCTY  = 


RHOCAP  x  60  x  DATM 


HBLCT 

Lock  utilization  for  each  lock  and  direction  is: 


RHO  .  .  =  RAMDA  .  .  X  TMCYCL .  . 
7*  >  J  I*  »  J  T*  )  J 


for  Lock  i  and  Direction  j 
where 


TMCYCL  =  Mean  lock  cycle  time. 


If  the  lock  utilization  for  the  Sabin  becomes  greater  than  0.7, 
the  Davis  Lock  is  brought  into  operation.  Both  locks  are  assumed 
to  function  identically  and  split  the  transit  demand  equally. 

If  the  maximum  lock  utilization  is  reached,  the  transit 
demand  cannot  be  met  and  some  ships  are  denied  the  opportunity  to 
transit  the  locks.  The  number  of  ships  that  can  transit  the  locks 
is  determined  by  the  cut-off  factor: 

Cut-Off  _  .  RHOCAP 

Factor  i.j  RHO.  . 

for  Lock  i  and  Direction  j. 


Lock  cycle  time  variance  is  defined  as: 


Lock  Cycle 
Time  Variance 

up 


Lock  Cycle 
Time  Variance^ 


( VARTM . )  =  (AVCVAR.) 


+  2  X  (1  -  {RHO.)  )2  +  [RHO.)  2 
z  dn  z  dn 

X  {avgvar  . ) 

v  dn 


{VARTM.)  -  {AVGVAR.) 

1  dn  t  dn 

+  2  X  (1  -  {RHO.)  )2  +  {AVGVAR.) 

1  V 


X  {RHO.)2 

Z  up 
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4.7  The  Queuing  Module 

The  Queuing  Module  is  contained  in  subroutine  QUEMOD. 
Input/Output  variables  appear  in  Table  4.10.  The  purpose  of  the 
Queuing  Module  is  to  determine  the  mean  vessel  waiting  time  and 
the  mean  queue  length  for  each  lock  system  and  direction  of 
travel.  The  Queuing  Module  also  calculates  the  time  spent  in 
queues  in  one  complete  transit  of  the  lock  system  (for  the  Welland 
and  St.  Lawrence),  and  truncates  transits  when  maximum  lock  utili¬ 
zation  is  reached. 


Mean  vessel  waiting  time  and  mean  queue  length  are  calcu¬ 
lated  as  follows: 


Wai ting 
Time 


=  WTQM 


RAMDA  .  . 2  X  VARTM .  .  +  RHO .  . 

- Lu2 - - — — hul _ LjjL 

2  x  RAMDA.  .  x  (1  -  RHO.  .) 

f  j  J  1**0 


Queue 

Length 


QUEi,j,l 


=  WTQM  .  -  X  RAMDA  .  . 

^  j  0  y  ^  I*  3  J 


for  Lock  i.  Direction  j,  and  Operating  Period  l. 

For  the  Welland  and  St.  Lawrence  Systems  the  waiting  time 
and  length  of  queue  for  the  non-constraining  lock  is  multiplied 
by  the  number  of  non-constraining  locks  in  the  system.  For  all 
systems,  the  transits  are  cut  off  in  the  event  that  the  locks 
reach  capacity  except  for  the  non-constraining  locks  in  the 
Welland  and  St.  Lawrence  Lock  Systems. 


QUE.  .  =  QUE .  .X  CALF AC 

Total  Waiting 

Time  Per  =  WTQM  ■  ■  =  WTQM.  .  x  CALF AC 

Direction  t,J 


!C^L  =  SOOAR.  .  „  =  SOOAR.  .  v  X  CUTF .  . 
Transits  i,2,K  t,j 

where  CALF AC  -  number  of  non-constraining  locks 

J 

1  sums  both  directions 


for  Lock  i ,  Vessel  Class  K,  and  Operating  Period  l. 
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TABLE  4.10  INPUT  AND  OUTPUT:  SUBROUTINE  QUEMOD 


INPUT 

Through  Argument  List 

CALFAC  Number  of  non-constraining  locks  (Welland 

and  St.  Lawrence) 

Through  Common  Q 

CUTF  Transit  cut-off  factor 

RAMDA(4,2)  Vessel  arrival  rate 

RH0(4,2)  Lock  utilization 

S00AR(4,1 2 ,2)  Vessel  transit  demand 

VARTM(4,2)  Lock  cycle  time  variance 

OUTPUT 

Through  Common  QUECOM 

QUE(4,2,14)  Mean  queue  length 

WTQM(4,2,14)  Mean  vessel  waiting  time 

Through  Common  Q 

S00AR(4,12,2)  Actual  vessel  transits 
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4.8  The  Economic  Module 


The  purpose  of  the  Economic  Module  is  to  compute  the  delay 
cost  experienced  by  each  lock  and  vessel  class  based  on  the  ship 
costs  and  the  waiting  time.  Input/Output  variables  appear  in 
Table  4.11.  The  delay  cost  is  the  product  of  waiting  time  and 
ship  cost  per  hour,  summed  for  both  directions  of  travel. 

3 

TDLST .  v  i  -  Z  WTQM.  .  ,  X  SCOST .  X  SOOAB .  .  „ 

Z.  ^  t,  j,  l  j  z,j ,K 

for  Lock  i ,  Vessel  Class  K,  Operating  Period  l,  and 
for  Commodity  i,  and  Direction  j. 


4.9  Cargo  Tonnage,  System  Round-Trip,  and 
Waiting  Time  Module 

This  module  is  contained  in  subroutine  CARTON.  Input/Out¬ 
put  variables  appear  in  Table  4.12.  The  purpose  of  the  Cargo 
Tonnage  Section  is  to  compute  the  projected  cargo  flow  and  the 
actual  cargo  flow  for  each  operating  period  and  commodity. 

The  purpose  of  the  System  Round-Trip  and  Waiting  Time 
Section  is  to  calculate  the  time  it  takes  for  a  vessel  to  make 
one  round-trip  in  the  Welland  Canal  or  the  St.  Lawrence  River 
including  time  spent  in  queues  and  slowdowns  due  to  weather  (ice) 
conditions.  The  system  round-trip  and  waiting  time  is  the  sum  of 
the  time  spent  in  upbound  locks  and  queues,  the  time  spent  in 
downbound  queues  and  locks,  and  the  time  spent  between  locks  and 
queues.  The  time  spent  between  locks  and  queues  is  multiplied  by 
a  transit  time  increase  factor  as  a  function  of  month  that  in¬ 
creases  transit  times  due  to  winter  conditions. 


Actual  Cargo  j  K 

Per  Operating  =  CAGOCL .  .  =  I  Z  ( CTRNPM .  .  7  x  CC .  . 

Period  ^>3 

X  cutfk) 


Projected 
Cargo  Per  = 

Operating  FCARGi,l 
Period 


3  K 

l  Z  CTRNPM.  .  „  ,  X  CC.  . 


for  Commodity  i.  Vessel  Class  j.  Direction  K,  and  Operating 
Period  l 
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TABLE  4.11  INPUT  AND  OUTPUT:  ECONOMIC  MODULE 


INPUT 

SCOST(ll) 

S00AR(3,1 1 ,2) 

WTZM(3,2,14) 

OUTPUT* 

TDCST (14,11 ,3)  Daily  delay  cost  per  lock,  vessel, 

class,  and  operating  period 


Ship  cost 
Actual  transits 

Waiting  time  per  lock  or  series  of  locks 


*  Has  been  suppressed  for  this  project. 


TABLE  4.12  INPUT  AND  OUTPUT:  SUBROUTINE  CARTON 


INPUT 


Through  Argument  List 

SYSADD 

SYSFAC 

SYSTIM 


Time  spent  in  flight  locks 

Number  of  non-constraining  locks 

Time  spent  in  transit  between  locks  and 
queues  per  round-trip  -  Welland  and 
St.  Lawrence 


Through  Common  CALCOM 
CTRNPM(6,12,2) 
Through  Common  MINARY 
CC(6,12) 

Through  Common  QUECOM 

WTQM(4,2,14) 

Through  Common  Q 

TMCYCL(4,2) 

TTI 

CUTF(4 ,2) 


Cargo  transits  per  operating  period 


Carrying  capacities 


Mean  waiting  time 


Mean  lock  cycle  time 
Transit  time  increase 
Transit  cut-off  factor 


OUTPUT 

Through  Common  PRJCOM 

PCARG(3,15,6)  Projected  cargo  tonnage 

Through  Common  CARGCM 

CAG0CM(6,14)  Actual  cargo  tonnage 

Through  Common  QUECOM 

ISYSTM( 1 4)  System  round-trip  and  waiting  time  per 

operating  period 


4-35 


where 


CC  =  Carrying  capacities 

CTRNPM  =  Cargo  transits  per  operating  period 

CUTF  -  Transit  cut-off  factor 

Time  Spent 

|1'Lucba»!Id  =  SYSTUP  =  ( TMCYCL  )  +  SYSFAC 

Locks  and  up  * 

Queues  constr- 


X  ( TMCYCLE ) 


+  SYSADD 


non-constr . 


Time  Spent 

kKr"  * s!s ™  -  (w^dn>  „  +  s:,sfac 

Queues  constr- 

X  {TMCYCLE  .)  +  ( WTQM,  ) 

n  non-constr.  n  constr. 

+  {WTQM.  )  4  SYSADD 

n  non-constr. 


{^Transit  =  SYSTEM  ~  SYS™  x  TTI 
aWT-  =  ISYS™  =  SYSTUP  +  SYSTDN  +  SYSTM 


4.10  The  Output  Module 


The  control! irg  statements  of  the  Output  Module  are  in 
subroutine  0UTM00.  lhe  purpose  of  the  Output  Module  is  to  gather 
the  information  generated  by  the  lock  capacity  analyses  and  to 
print  the  information  in  tabular  form.  The  output  appears  in 
seven  routines  and  two  tables  printed  within  the  module  in  the 
following  order: 


Projected  Cargo 
Fleet  Mix 

Vessel  Characteristics 
Yearly  Transits 
Daily  Transit  Demand 
Actual  Transits 
Queuing  Information 
Actual  Cargo  Flow 


(Subroutine  PROJCR) 

(Subroutine  MIX) 

(Subroutine  VESCHR) 

(Subroutine  OUTMOD) 

(Subroutine  OUTMOD) 

(Subroutine  ACTRAN  and  ACTRN2) 
(Subroutine  QUETAB) 

(Subroutine  ACCARG) 
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The  subroutines  themselves  call  subroutine  HEADER,  which 
prints  the  header  describing  each  particular  run  at  the  top  of 
each  new  page.  Subroutine  QUEUE  prints  the  appropriate  table 
headings  for  the  queuing  information  table  depending  on  the  lock 
system  being  run.  Each  subroutine  and  table-printing  section  as¬ 
signs  the  old  working  variables  to  new  variables  conveniently 
dimensioned  for  printing.  Neither  the  yearly  transit  information 
and  the  daily  transit  demand  tables  are  printed  in  subroutines, 
and  a  list  of  input  and  output  for  the  yearly  transit  table  and 
the  daily  transit  demand  table  appear  in  Table  4.13  and  Table  4.14 
respectively. 

4.10.1  Subroutine  HEADER 


The  purpose  of  subroutine  HEADER  is  to  print  the  header 
describing  each  particular  run  in  terms  of  year,  season  extension, 
locking  time  range,  and  fleet  response.  Subroutine  HEADER  also 
contains  the  carriage  controls,  date,  and  page  numbers.  Input/ 
Output  variables  appear  in  Table  4.15. 

4.10.2  Subroutine  PROJCR 


The  purpose  of  subroutine  PROJCR  is  to  print  the  projected 
cargo  tonnage  by  commodity,  operating  period,  and  direction  through 
the  locks.  Input/Output  variables  appear  in  Table  4.16. 

4.10.3  Subroutine  MIX 


The  purpose  of  subroutine  MIX  is  to  print  out  the  actual 
fleet  mix  by  vessel  class  and  commodity.  Input/Output  variables 
appear  in  Table  4.17. 

4.10.4  Subroutine  VESCHR 


The  purpose  of  subroutine  VESCHR  is  to  print  out  the  vessel 
characteristics  including  vessel  utilization,  locking  times,  and 
cost  per  hour.  Input/Output  variables  appear  in  Table  4.18. 

4.10.5  Subroutines  ACTRAN  and  ACTRN2 


The  purpose  of  subroutines  ACTRAN  and  ACTRN2  is  to  print 
out  the  actual  transits  by  operating  period,  lock,  vessel  class, 
and  direction  through  the  locks.  Subroutine  ACTRAN  is  called  for 
the  Soo  Lock  System  and  subroutine  ACTRN2  is  called  for  the  Welland 
and  St.  Lawrence  Systems.  Input/Output  variables  appear  in  Table 
4.19. 


4-37 


TABLE  4.13  INPUT  AND  OUTPUT  FOR  THE  YEARLY  TRANSIT  TABLE 


INPUT 


DLTRN(12,3,14) 
DBTRN(12,3,14) 
DM  ( 1 4 ) 

ICTRNP(6,12,2) 


Average  daily  loaded  transits  by  vessel 
class  and  direction 

Average  daily  ballast  transits  by  vessel 
class  and  direction 

Days  per  operating  period 

Cargo  transits  per  operating  year  by 
commodity,  vessel  class,  and  direction 


OUTPUT 

ICTRNP(6,12,2) 

IT0TC(2,6) 

ILTR(3,12) 

ITOT (3,3) 


Cargo  transits  per  operating  year  by 
commodity,  vessel  class,  and  direction 

Cargo  transits  per  operating  year  by 
direction  and  commodity 

Cargo  transits  per  operating  year  by 
direction  and  vessel  class 

Total  annual  vessel  transits  by  direction 


/ 
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TABLE  4.14 

INPUT 

DLTRN(12,3, 
DBTRN(12,3, 
I BMO (14) 

OUTPUT 

I BMO (14) 
T0TDB(3,14) 

TOTDL(3,14) 

T0TDT(3,14) 

DLTRN(12,3, 

DBTRN(12,3, 

DT(12,3,14) 


INPUT  AND  OUTPUT  FOR  THE  DAILY  TRANSIT  DEMAND 
TABLE 


14)  Average  daily  loaded  transits  by  vessel 
class  and  direction 

14)  Average  daily  ballast  transits  by  vessel 
class  and  direction 

Hollerith  field  containing  the  names  of 
the  14  operating  periods 


Names  of  the  14  operating  periods 

Average  daily  ballast  transits  by  direc¬ 
tion 

Average  daily  loaded  transits  by  direc¬ 
tion 

Average  daily  total  transits  by  direction 

14)  Average  daily  loaded  transits  by  vessel 
class  and  direction 

14)  Average  daily  ballast  transits  by  vess. ■ 
class  and  direction 

Average  daily  total  transits  by  vessel 
class  and  direction 
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TABLE  4.15  INPUT  AND  OUTPUT:  SUBROUTINE  HEADER 


INPUT 

Through  the  Argument  List 

IS  Loop  index  on  lock  systems 

INUMB  Page  number 

IR  Loop  index  for  years 

ISN  Loop  index  for  season  extensions 

ILTML  Loop  index  for  locking  time  ranges 

Through  Common  HEDCQM 

Hollerith  fields  containing  operating  period 
names 

Constants  representing  the  years  1976-2040 


Constants  representing  the  years  1976-2040 

Loop  index  for  season  extensions 

Hollerith  field  containing  locking  time 
range  titles 


IBM0(14) 
I YR ( 8 ) 

OUTPUT 

I YR ( 80 ) 
ISN 

I LT ( 3 ) 
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TABLE  4.16  INPUT  ANO  OUTPUT:  SUBROUTINE  PROJCR 


INPUT 


Through  the  Argument  List 


CARF(3,15,80) 

IS 

I  NUMB 
IR 
ISN 
ILTML 

Through  Common  HEDCOM 


Internal  commodity  forecast  working  variable 

Loop  index  for  lock  system 

Page  number 

Loop  index  for  year 

Loop  index  for  season  extension 

Loop  index  for  locking  time  ranges 


I BMO (14) 


Hollerith  field  containing  operating  period 
names 


Through  Common  PRJCOM 

IPCARG(3,15,6)  Projected  cargo  tonnage  flow  per  operating 

period  and  commodity 

PCARG(3,15,6)  IPCARG  in  real  mode 


OUTPUT 

IBM0(14) 

IPCARG (3, 15, 6) 

I PCTOT (3,15) 


Hollerith  field  containing  operating  period 
names 

Projected  cargo  tonnage  flow  per  operating 
period  and  commodity 

Projected  cargo  tonnage  flow  per  operating 
period 
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TABLE  4.17  INPUT  AND  OUTPUT:  SUBROUTINE  MIX 


INPUT 

LU 

IS 

I  NUMB 
IR 
ISN 
HTML 

SHIP (12,6) 

OUTPUT 

SHIP(12,6) 
TSHIP(6) 
TSH I PS ( 1 2 ) 
TTSHIP 
I PCT (6,12) 

ASHIP 

ATSHIP 


Largest  vessel  class  designation  per 
system 

Loop  index  for  lock  systems 

Page  number 

Loop  index  for  years 

Loop  index  for  season  extensions 

Loop  index  for  locking  time  ranges 

Actual  fleet  by  vessel  class  and  commodity 


Actual  fleet  by  vessel  class  and  commodity 

Actual  fleet  by  commodity 

Actual  fleet  by  vessel  class 

Number  of  ships  in  the  actual  fleet 

Shipbuilding  percentage  by  commodity  and 
class 

Composite  ship  class  by  commodity 
Overall  fleet  composite  ship  class 
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TABLE  4.18  INPUT  AND  OUTPUT:  SUBROUTINE  VESCHR 


INPUT 


Through  the  Argument  List 


IS 

LU 

LMIN(ll) 

LMAX(ll) 


Loop  index  for  lock  systems 
Largest  vessel  class  designation  per  system 
Minimum  vessel  length  per  vessel  class 
Maximum  vessel  length  per  vessel  class 


Through  Common  CLACOM 

TML0CK(12,2,4)  Locking  time  per  vessel  class,  direction, 

and  lock 


Through  Common  MINARY 

CC(6,12)  Carrying  capacities  by  commodity  and  vessel  class 

ZBHF(12)  Ship  utilization  factor  by  vessel  class 


Through  Common  DAT1 

XCAP(12)  Vessel  capital  cost/hour  per  vessel  class 

XSH IP (12)  Vessel  operating  cost/hour  per  vessel  class 


OUTPUT 

LMIN( 12) 
LMAX(12) 
VSM(12,6) 

ICCC 

I ZBH (12) 

ITMLK1 

ITMLK2 

I XSH  I P 

IXXCAP 

CAP I NC (12)  ' 


Minimum  vessel  length  per  vessel  class 

Maximum  vessel  length  per  vessel  class 

Mean  annual  vessel  speed  per  vessel  class 
and  commodity 

Carrying  capacities 

Ship  utilization  factor  x  100 

Locking  time  up 

Locking  time  down 

Vessel  operating  cost/hour 

Vessel  capital  cost/hour 

Capacity  increase  with  draft 


4-43 


r 


TABLE  4.19  INPUT  AND  OUTPUT:  SUBROUTINES  ACTRAN  AND  ACTRN2 


INPUT 

Through  the  Argument  List 


LU 

IS 

INUMB 

IR 

ISN 

ILTML 


Largest  vessel  class  designation  per 
system 

Loop  index  for  lock  systems 

Page  number 

Loop  index  for  years 

Loop  index  for  season  extensions 

Loop  index  for  locking  time  ranges 


Through  Common  HEDCOM 


I BMO (14) 


Hollerith  field  containing  operating 
period  names 


Through  Common  CARGCM 

SOR (12,12,14)  Number  of  daily  lock  arrivals 


OUTPUT 

I BMO (14) 

SOR (12,12,14) 
S0RT0T(24) 


Hollerith  field  containing  operating 
period  names 

Number  of  daily  lock  arrivals 
Total  daily  lock  arrivals 
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4.10.6  Subroutine  QUETAB 


The  purpose  of  subroutine  QUETAB  is  to  print  out  the  queu¬ 
ing  and  locking  time  information  by  lock  and  operating  period. 
Subroutine  QUETAB  calls  subroutine  QUEUE  which  prints  out  the 
appropriate  table  headings  depending  on  the  lock  system.  Input/ 
Output  variables  appear  in  Table  4.20. 

4.10.7'  Subroutine  QUEUE 

The  purpose  of  subroutine  QUEUE  is  to  print  the  appropriate 
headings  for  the  queuing  information  depending  on  the  lock  system. 
Input/Output  variables  appear  in  Table  4.21. 

4.10.8  Subroutine  ACCARG 


The  purpose  of  subroutine  ACCARG  is  to  print  the  actual 
cargo  tonnage  that  has  transited  the  locks  by  operating  period  and 
commodity.  Input/Output  variables  appear  in  Table  4.22. 
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TABLE  4.20  INPUT  AND  OUTPUT:  SUBROUTINE  QUETAB 


INPUT 

Through  the  Argument  List 


IS 

INUMB 

IR 

ISN 

ILTML 

LU 


Loop  index  for  lock  systems 

Page  number 

Loop  index  for  years 

Loop  index  for  season  extensions 

Loop  index  for  locking  time  ranges 

Largest  vessel  class  designation  per  system 


Through  Common  HEDCOM 

I BMO (14)  Hollerith  field  containing  operating  period 

names 

IYR(80)  Constants  representing  the  years  1978-2050 


Through  Common  CALCOM 

HRS(14,4,6)  Operating  hours  per  operating  season 


Through  Common  Quecom 


IRH0(4 ,1 4) 

ISDEV(4,2,14) 

ISYSTM(14) 

ITMCYC(4,2,14) 

QUE (4,2,14) 

WTQM(4,2,14) 


Lock  utilization 

Lock  cycle  time  standard  deviation 
System  round-trip  and  waiting  time 
Lock  cycle  time 
Queue  length 
Waiting  time 


OUTPUT 

IBMO(14) 

I HRS (74) 
ITMCYC(4,2,14) 
ISDEV (4,2,14) 
WTQM(4 ,2  ,'l  4) 
QUE(4,2,14) 
IRH0{4 ,1 4) 

I S YSTM (14) 


Hollerith  fields  containing  operating 
period  names 

Operating  hours  per  operating  period 
Lock  cycle  time 

Lock  cycle  time  standard  deviation 
Waiting  time 
Queue  length 
Lock  utilization 

System  round-trip  and  waiting  time 
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TABLE  4.21  INPUT  AND  OUTPUT:  SUBROUTINE  QUEUE 


INPUT 

IKNT1  Internal  couting  index 

OUTPUT 

-TABLE  HEADINGS- 
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TABLE  4.22  INPUT  AND  OUTPUT:  SUBROUTINE  ACCARG 

INPUT 

Through  the  Argument  List 

CARF(3,15,80)  Internal  commodity  forecast  working  variable 

Through  Corranon  CARGCM 

CARG0CM(6,14)  Actual  cargo  tonnage  flow  by  commodity  and 

operating  period 

Through  Common  PRJCOM 

I PCARG (3,15,15)  Projected  cargo  tonnage  flow 

OUTPUT 

ICAG( 15)  Hollerith  field  containing  commodity  names 

ICAGO (15,14)  Actual  cargo  tonnage  transported  by  commodity 

and  operating  period 

ITFL0W(15)  Actual  cargo  tonnage  transported  by  commodity 

ICFL0W(15)  Actual  cargo  tonnage  transported  by  operating 

period 
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APPENDIX  A 
PROGRAM  VARIABLES 
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APPENDIX  A 


PROGRAM  VARIABLES 


A  brief  description  of  all  the  variables  that  appear  in 
the  common  statements  (common  statements  appear  alphabetically) 
followed  by  variables  that  appear  in  the  modules  but  are  not 
present  in  the  common  statements. 


COMMON  CALCOM 

CARG0P(6,2,80) 

Cargo  tonnage  potential  to  be 
carried  by  the  calculated  fleet 
by  commodity,  direction,  and  year 

CTRAN(6,12,4) 

Cargo  transits  per  year  by  commod¬ 
ity,  vessel  class,  and  direction 

CTRNPM(6,12,2) 

Cargo  transits  per  operating 
period,  commodity,  vessel  class, 
and  direction 

EXTPT(6 ,2 ,80) 

Grain  and  general  cargo  tonnage 
potential  shipped  in  the  extended 
season 

HRS (14,4,6) 

Operating  hours  per  period,  season 
extension,  and  commodity 

TML0CK( 12,2,4) 

Locking  time  by  vessel  class, 
direction,  and  lock 

VSA( 14,12,4) 

Vessel  speed  of  advance  per  oper¬ 
ating  period,  vessel  class,  and 
season  extension 

COMMON  CARGCM 

CAG0CM(6,14) 

Actual  cargo  tonnage  processed  per 
operating  period  and  commodity 

SOR (12,12,14) 

Daily  transit  demand  output  var¬ 
iable  by  operating  period  and 
vessel  class 

A-2 


COMMON  COMMOD 


Commodity  projections  input  data 


AIR0RE{80,3) 

ALMSTN(80,3) 

AMIN(80,3) 

BLYRYE(80,3) 

CEMENT(80,3) 

COAL (80, 3) 

CORN (80, 3) 

DRYBLK(80,3) 

GENCAR(80,3) 

0ILSD(80,3) 

PETROL (80, 3) 

RAWMAT(80,3) 

SOY (80,3) 

STLPRD(80,3) 

WHEAT (80, 3) 


Iron  ore 
Limestone 

Non-metal ic  minerals 
Barley  and  rye 
Cement 

Coal  (also  internal  classification) 
Corn 

Dry  bulk 
General  cargo 
Oilseeds 

Petroleum  products 
Raw  materials 
Soybeans 
Steel  products 
Wheat 


Internal  Commodity  Classifications 


BULK(80,3) 
GENCAR(80,3) 
GRAIN (80, 3) 
0RE(80,3) 
STONE (80, 3) 


Bulk 

General  cargo 

Grain 

Ore 

Stone 
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COMMON  DAT1 

BTF(14,4) 

CAREX1 (6,2,80) 

CAREX2(6,2,80) 

DATM(14) 

DIN( 14,4) 

GBAL(12) 

GL0AD(1 2) 

IZBH (12) 

LYEAR(80) 

PCRF(14,2) 

SC0ST(1 2) 

STDEV(12,2,4) 

TLTML2(12,2,4) 
TLML3 ( 12,2,4) 
TURNBK(4) 


Bias  traffic  factor  by  operating 
period  and  season  extension 

Cargo  tonnage  potential  to  be 
carried  by  the  calculated  fleet 
during  season  extension  1  by  com¬ 
modity  direction  and  year 

Identical  to  CAREX1  above  except 
for  season  extension  2  instead  of 
extension  1 

Operating  hours  available  per  day 
per  operating  season 

Demand  indexes  per  operating  per¬ 
iod  and  season  extension 

Total  annual  ballasted  transits 
per  vessel  class 

Total  annual  loaded  transits  per 
vessel  class 

Ship  utilization  factor  x  100 
(integer) 

Year  index 

Pleasure  craft  and  ice  lockages 
per  operating  period  and  direction 

Ship  capital  +  operating  costs  per 
hour  and  vessel  class 

Standard  deviation  in  locking  times 
by  vessel  class,  direction,  and 
lock 

Low  locking  times  per  vessel  class, 
direction,  and  lock 

High  locking  times  per  vessel 
class,  direction,  and  lock 

Turnback  time  per  lock 
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XCAP(12) 


Ship  capital  costs  per  hour  by 
vessel  class 


XSH I P ( 1 2 ) 


Ship  operating  costs  per  hour  by 
vessel  class 


ZB (12) 


Ship  utilization  factors  by  vessel 
class 


COMMON  HEDCOM 
I BMO (14) 

IYR(80) 

COMMON  MINARY 

ADDPCT(6,12) 

BASEFT(6 ,1 2) 
CAP INC (12) 

CC(6,12) 


Hollerith  fields  containing  the 
names  of  the  14  operating  periods 

Constants  representing  the  sequen¬ 
tial  years  (1978-2050) 


Shipbuilding  percentages  by  com¬ 
modity  and  vessel  class 

Base  fleet 

Ship  capacity  increase  with  in¬ 
crease  in  depth 

Carrying  capacities  by  commodity 
and  vessel  class 


DFA(14,4) 


Absolute  demand  factors  per  period 
and  season  extension 


DISTN(2 ,6) 


Mean  distance  between  ports  by 
direction  and  vessel  class 


EMPTY(6,12) 


Unloading  rate  in  short  tons  per 
hour  by  commodity  and  vessel  class 


F I LL (6,12)  Loading  rate  in  short  tons  per 

hour  by  commodity  and  vessel  class 

FLEETN(6,12)  New  zero-backhaul  fleet  by  com¬ 

modity  and  vessel  class 


FL0AD(6) 


Loading  factor  to  account  for 
broken  stowage  per  commodity 


HRSYR(6) 


Operating  hours  per  year  per  com¬ 
modity 
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PO (80 ,12) 


Phase  out  fractions  per  year  and 
vessel  class 


REDFT(12) 

TDF(12,14) 

TRIPYR(6 ,1 2) 

VSM(12,6) 

WDIST(6) 

ZBHF( 1 2) 


Fleet  reduction  factor  to  convert 
the  zero-backhaul  new  fleet  into 
the  actual  fleet 

Transit  distribution  factors  for 
the  validation  year  by  vessel  class 
and  operating  period 

Number  of  round-trips  a  single  ship 
can  make  in  one  operating  year  by 
commodity  and  vessel  class 

Mean  vessel  speed  per  vessel  class 
and  commodity 

Mean  distance  between  major  commod¬ 
ity  ports,  both  directions,  by 
commodity 

Ship  utilization  factors  by  vessel 
class 


COMMON  PRELIM 
I SES (4) 


Season  extension  flags 


I LTM ( 3 ) 

COMMON  PR J COM 

I PCARGO (3,15,15) 

PCARG(3,15,6) 


Locking  time  range  flags 


Projected  cargo  tonnage  flow  per 
operating  period  and  commodity  in 
integer  format 

Projected  cargo  tonnage  (IPCARG) 
in  real  format 


COMMON  Q 

ARTAR(12,2)  Number  of  ships  that  are  arriving 

at  the  MacArthur  Lock  per  day  by 
vessel  class  and  direction 

ARTCL ( 2 )  Number  of  ships  that  can  be  assign¬ 

ed  to  the  MacArthur  Lock  per  day 
by  direction 
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ARTPOE ( 2 ) 

AVGVAR(4,2) 

CAPCTY(4,2) 


CUTF(3,2) 

DTLOCK(3,2) 

LMAX(12) 
LMIN ( 12) 
MONRAY (14) 

POEAR(12,2) 

P0ECL(2) 

RAMDA(4,2) 


Effective  difference  in  daily  ship 
arrivals  between  the  Poe  and 
MacArthur  Locks 

Locking  time  variance 

Maximum  number  of  daily  transits 
possible  before  maximum  lock  utili¬ 
zation  is  reached  by  lock  and 
di recti  on 

Portion  of  transits  that  are  pro¬ 
cessed  if  capacity  is  reached  by 
lock  and  direction 

Total  number  of  daily  arrivals  by 
lock  and  direction 

Maximum  vessel  length  per  class 

Minimum  vessel  length  per  class 

Array  containing  the  order  operat¬ 
ing  periods  are  analyzed 

Number  of  ships  that  do  arrive  at 
the  Poe  Lock  per  day  by  vessel  class 
and  direction 

Number  of  ship  arrivals  that  fit 
through  the  Poe  Lock  only  per  day 

Vessel  arrival  rate  be  lock  and 
direction 


RH0(4,2) 


Lock  utilization  by  lock  and 
direction 


RPMCL(2) 


'‘'s(12,2) 

SDEV(4,2) 


Replacement  fraction  in  ship  dis¬ 
patch  module  for  transfer  of  ships 
from  the  MacArthur  Lock  to  the  Poe 
Lock  by  direction 

Number  of  daily  arrivals  to  the 
Sabin  and  Davis  Locks  by  vessel 
class  and  direction 

Locking  time  standard  deviation  by 
lock  and  direction 
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SHIP( 12,6) 


Actual  fleet  by  vessel  class  and 
commodity 


S00AR(4,12,2) 

TBAL(14,12) 

TBALT(12) 

TDCST(4,12) 

T IMES (14) 

TLOAD(14,12) 

TLOADT(12) 

TL0CKM(4,2) 

TMCYCL(4,2) 

TMEAN(4 ,2) 

TT 1(14) 

VARTM(4,2) 

VARTNB 


Daily  vessel  arrivals  per  lock  by 
vessel  class  and  direction 

Number  of  ballast  transits  per  day 
by  operating  period  and  vessel  class 

Total  annual  ballast  transits  per 
vessel  class 

Daily  delay  cost  per  lock  and 
vessel  class 

Locking  time  increase  per  operating 
period  due  to  winter 

Number  of  loaded  transits  per  day 
by  operating  period  and  vessel  class 

Total  annual  loaded  transits  per 
vessel  class 

Typical  locking  time  for  each  of 
the  Soo  Locks  by  direction 

Mean  lock  cycle  time  by  lock  and 
direction 

Mean  one-way  locking  time  by  lock 
and  direction 

Transit  time  increase  by  operating 
period  due  to  winter 

Variance  of  mean  lock  cycle  time 
by  lock  and  direction 

Variance  in  the  lock  turnback  time 

Logical  variable  indicating  if 
transits  occurred  in  each  operating 
period 


YESTRN 


COMMON  QUECOM 


CAGOCL (6,12) 

Cargo  carried  per  vessel  class  and 
commodity  per  operating  period 

D8TRN(12,3,14) 

Average  daily  ballast  transits  by 
vessel  class,  direction  and  oper¬ 
ating  period 

DLTRN(12,3,14) 

Average  daily  loaded  transits  by 
vessel  class,  direction,  and  oper¬ 
ating  period 

DM ( 1 4 ) 

Days  per  month 

OT (12,3,14) 

Average  daily  loaded + ballast  tran¬ 
sits  by  vessel  class,  direction, 
and  operating  period 

ICTRNP(6,12,2) 

Cargo  transits  per  operating  year 
by  commodity,  vessel  class,  and 
di rection 

I DBTRN (12,3) 

Total  ballasted  transits  per 
operating  period  year  by  vessel 
class  and  direction 

IDLTRN(12,3) 

Total  loaded  transits  per  oper¬ 
ating  year  by  vessel  class  and 
direction 

I HRS (14) 

Maximum  operating  hours  per  oper¬ 
ating  season 

ILTR(3,12) 

Cargo  transits  per  operating  period 
by  direction  and  vessel  class 

IRH0(4,14) 

Lock  utilization  x  100  by  lock  and 
operating  period 

ISDEV (4,2,14) 

Lock  cycle  time  standard  deviation 
by  lock,  direction,  and  operating 
period 

I SYSTM (14) 

System  round-trip  and  waiting  time 
for  the  Welland  and  St.  Lawrence 
operating  period 

ITLTR(3,12) 

Total  annual  vessel  transits  by 
direction  and  vessel  class 
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ITMCST (15,12,4) 

ITMCYC(4,2,14) 

IT0T(3,3) 

IT0TC(2 ,6) 

ITTCST(12,3) 

QUE (4 ,2,14) 

T0TDB(3,14) 

T0TDL(3,14) 

T0TDT(3,14) 

WTQM(4,2,14) 

XDBTRN(12,2) 
XDLTRN(12,2) 
VARIABLES  NOT  IN  COMMON 
ABTEST 

ACARGO 

AD0SHP(6,12) 

ALLSHP (6,12) 


Delay  cost  per  operating  period  by 
vessel  class  and  lock 

Mean  lock  cycle  time  by  lock,  di¬ 
rection,  and  operating  period 

Total  annual  vessel  transits  by 
direction 

Cargo  transits  per  operating  year 
by  direction  and  commodity 

Delay  cost 

Average  queue  length  by  lock,  di¬ 
rection  and  operating  period 

Average  daily  ballast  transits  per 
direction  and  operating  period 

Average  daily  loaded  transits  per 
direction  and  operating  period 

Average  daily  loaded  +  ballast 
transits  by  direction  and  operating 
period 

Average  waiting  time  by  lock,  di¬ 
rection,  and  operating  period 

IDBTRN  (Real) 

IDLTRN  (Real) 


Very  small  number  for  logical 
compari sons 

Actual  cargo  carried  per  operating 
period,  commodity,  vessel  class, 
and  direction 

Additional  new  ships  built  to 
meet  the  cargo  tonnage  potential 
by  commodity  and  vessel  class 

Number  of  additional  ships  built 
by  commodity  and  vessel  class 
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ANCAP ( 6 ) 


Remaining  fleet  cargo  transport 
capacity  by  commodity 


BTF4 

Base  year  bias  traffic  factor  for 
early  April 

BTF5 

Base  year  bias  traffic  factor  for 
late  April 

BTF13 

Base  year  bais  traffic  factor  for 
early  December 

BTF14 

Base  year  bias  traffic  factor  for 
late  December 

CAL FAC 

System  queue  length  and  waiting 
time  multiplier  (number  of  non¬ 
constraining  locks) 

CARGON 

Cargo  not  transported  by  the  re¬ 
maining  fleet 

CARGT (12,2) 

Total  cargo  transits  per  year  by 
vessel  class  and  direction 

CDBC(6 ,1 2) 

Cargo  distribution  fractions  by 
commodity  and  vessel  class 

C0MSHA(6) 

Composite  ship  to  be  added  to  fleet 
by  commodity 

DELSHP(6,12) 

Number  of  ships  that  must  be  de¬ 
leted  from  the  remaining  fleet  if 
the  fleet  it  too  large 

DIFROE 

The  difference  between  lock  utili¬ 
zation  of  the  separate  locks  at 
the  Soo 

DRAFT 

New  system  draft  for  a  capacity 
expansion  measure 

ENDFAC(6,12) 

Partial  calculation  of  TDFC  in  sub¬ 
routine  LTRAN;  used  to  incorporate 
cargo  shipping  demand 

EMPTY 2  . 

Difference  between  upbound  and 
downbound  daily  loaded  transits 
(DLTRN) 

FACTOR 


Cargo  projections  multiplier 


FLEETR(6,12) 

Remaining  fleet  by  commodity  and 
vessel  class 

HBLCT 

Heavy  balanced  lock  cycle  time 

HOLD 

Intermediate  variable  used  to 
flip  upbound  and  downbound  daily 
transit  demands  for  printing 

G0N0G0 

Data  file  go/no  go  flag 

IAPROX 

Loop  index  for  approximation 
iterations 

ICAG0(6 ,14) 

Actual  cargo  transported  by  com¬ 
modity  and  month 

I  CAP 

Intermediate  variable  used  for 
capacity  check 

ICAPX 

Capacity  expansion  measure  imple¬ 
mentation  flag  (0  =  no,  1  =  yes) 

ICCC 

Carrying  capacities  (Integer) 

I C  FLOW ( 1 5) 

Actual  cargo  transported  by  month 

IDEBUG 

Logical  variable  used  for  printing 
a  debugging  file  from  internal 

WRITE  statements 

IDEC 

Variable  used  for  year  counting 

IDEC1 

Variable  used  for  year  counting 

IKNT1 

Internal  counting  mechanism  for 
queuing  output 

I  LOCK 

Individual  lock  label  at  the  Soo 

ILT ( 3 ) 

Hollerith  field  containing  locking 
time  range  titles 

ILTM(3) 

Flag  for  desired  locking  time  range 

ILTML  ' 

Loop  index  for  locking  time  ranges 
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IND 

INDVLK  +  1 

INDEXC 

IAPPRQX-1 

INDVLK 

Individual  lock  loop  index  variable 

I  NUMB 

Page  number 

IPCT0T(3,1 5) 

Projected  cargo  tonnage  by  di¬ 
rection  and  operating  period 

IPGS 

Total  number  of  pages  per  run 

IRINC 

Intermediate  variable  for  year 
counting 

IRR 

Intermediate  variable  for  year 
counting 

IR 

Loop  index  for  years 

IS 

Data  file  identifier 

ISN 

Loop  index  for  season  extensions 

ISW 

Ship  dispatch  criteria  index 

ISES ( 4 ) 

Flag  for  desired  season  extensions 

ISYST 

Lock  system  loop  index 

ITFLOW ( 6 ) 

Actual  cargo  tonnage  transported 
per  year  by  commodity 

ITMLK1 

Locking  time  up 

ITMLK2 

Locking  time  down 

IXSHIP 

Vessel  operating  costs 

IXCAP 

Vessel  capital  costs 

IY 

Intermediate  variable  for  year 
counti ng 

IYEAR 

Intermediate  variable  for  year 
counting 

IYRCAP 

Year  capacity  is  reached 
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J1 

J10 

J20 

JCT 

JYR 

KU 

LC 

LOCKS 

LU 

MC 

MEASUR 

MN 

NEWLU 

NEXPG 

NHOWTO 

RHOMAX 

RHOPOE 

SHPCAP(6 ,1 2 ) 

S0RT0T(18) 

SYSADD 


Intermediate  variables  for  year 
counting  after  capacity  expansion 
measure  implementation 


Number  of  different  locks  per 
system 

Loop  index  per  vessel  class 

Capacity  expansion  measure  flag 
for  the  option  of  increasing  lock 
size  when  system  draft  is  increased 

Highest  vessel  class  per  system 

Loop  index  for  commodity 

Capacity  expansion  measure  label 
variable 

Loop  index  for  operating  period 

New  maximum  vessel  class  for 
capacity  expansion  measures 

Carriage  control  to  start  each 
table  on  a  new  page 

Locking  time  reduction  option  label 

Maximum  lock  utilization 

Maximum  lock  utilization  for  the 
Poe  Lock 

Annual  cargo  transport  capacity 
of  the  remaining  fleet  by  commodity 
and  vessel  class 

Daily  vessel  arrivals  dimensioned 
for  printing 

Time  spent  in  flight  locks  per 
round-trip 


SYSFAC 


Lock  cycle  time  muliplier  (Number  of 
non-constraining  locks)  -  Welland 
and  St.  Lawrence 


SYSTIM 

Time  spent  in  transit  between  locks 
and  queues  per  round-trip  -  Welland 
and  St.  Lawrence 

TCARG 

Total  cargo  up  and  down 

TDFC (12,14) 

Transit  distribution  factors  by 
vessel  class  and  operating  period 

TDFI 

Parital  calculation  of  TDFC;  used 
to  include  cargo  shipping  demand 

TDFT 

Partial  calculation  of  TDFC;  used 
to  include  cargo  shipping  demand 

TDIN 

Total  of  the  input  demand  indexes 
(DIN) 

TIMELK( 12) 

Approximate  time  spent  in  locks 
(unconstrained  per  round-trip  - 
Welland  and  St.  Lawrence 

TRIPTM(6,12) 

Time  per  round-trip  by  commodity 
and  vessel  class 

TSHIP(6) 

Number  of  ships  in  the  actual 
fleet  by  commodity 

TSH I  PS (12) 

Number  of  ships  in  the  actual  fleet 
by  vessel  class 

TTSHIP 

Total  number  of  ships  in  the  actual 
fleet 

TURNBK(3) 

Lock  turnback  time  per  lock 
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PROGRAM  LISTING 
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ct 

ct 


t: 

C 

C 

C 

i; 

c 

c 

c 

c 

i: 

i: 

c 

i; 

c 

<: 

i: 

c 

c 


c 


DC  BUG 
ARRAYS 

PROGRAM  ANALOK  < INPUT  t  OUTPUT  *  TAPE1 1  TAPE2 .  TAPE3 . 
♦TAPER . TAPE V. HELP. DEBUG-HELP) 

PROGRAM  ANAL OK »  GL/SLS  LOCK  CAPACITY  MODEL 


ARCTECf  INC 

9104  RED  BRANCH  KUAU 

COLUMBIA.  MU  Vi  045.  USA 


WRITTENl 

author:  j.  kuangse  kxm 

MODIFIED!  ALLEN  REID  12/4/80 


language:  fortran 

purpose:  this  program  predicts  the  point  when  the  sou. 

WELLAND  AND  SEAWAY  LOCKS  REACH  CAPACITY  AND  ANAL 12ES 
THE  FACTORS  CAUSING  CAPACITY. 


IMPLICIT  INTEGER  (1) 

COMMON  /HEDCOM/  I»MO< 14).IYR(80) 

COMMON  /PRJCOM/  1PCARG<3. 15. 15) »PCARG< 3* 15.6) 

COMMON  /CARGCM/  CAG0CM<6. 14) .SORC 12. 12. 14 ) 

COMMON  /CALCOM/  AUDTRN<6. 12.2) .CARGOPt 6.2.80) . 

♦  CTRAN<6» 12.4) *CTRNPM<6. 12*2) .EXTPT  <6.2.80) . HRS< 14.4.6). 

♦  TMLOCKC 12.2*4) »VSA< 14.12.4) 

COMMON  /MINARY/  HASEFT < 6. 12 > » CC <4. 12 > » DF A< 14. 4 ) . UISTN < 2 . 6 ) . 

♦  EMPTY<6.12).FILL<4»12)*FLEETN<6»12>  »F  LOACH  6  > . WNSYR<4  > . 

♦  P0<80. 12) »REDFT< 12) . TDF< 12. 14) . TRIPYR(6* 12 ) . USM ( 12.6). 

♦  WDIST<6) .ZBHF (12) . AUDPCT (6.12) »CAPINC< 12 > 

COMMON  /PRELIM/  X I T < 3 > . I SES < 4 ) . 1LTM < 3 ) 

COMMON  /DAT  1 /  BTF( 14.4>.LAREX1 (6.2.00) .CAREX2(6»2. 80) . 

♦  DATM< 14) »DIN< 14.4) ,DIST<6> . 

♦  EXTP1<6. 2.80) .EXTP?<6. 2.80) . 

♦  I2BH(12).LYEAR(80) ,ODATS< 12).PCRF< 14.2) .6C0STC 12).STDEV< 12.2.4 >» 

♦  TLTML2< 12.2.4) .TLTHL3< 12.2.4 ) »TURNBK( 4). UNLOAD <12 ).XCAP( 12) . 

♦  XSHIP< 12) . ZB ( 12) . GBAL< 12) .GL0AD<12) 

COMMON  /OUECOM/  CAGOCL < 6. 12) . DBTRN( 12 . 3 . 14 ) . DLTRN ( 12 » 3 . 1 4 ) . 

♦  DM< 14). DT (12. 3.14) . 2DB 1 RN( 12.3) . ICTRNp (6.12.2).] DL  TRN (12.3). 

♦  IHRS<14>. ILTR(3»12).)RH0<4.14)»ISDEU<4.2»14) .ISYSTM(14). 

♦  ITLTR(3.12).ITMCST(15.I2.4).XTMCYC(4.2»14).IT0T(3.3). 

♦  ITOTC(2.6).ITTCST<12.3).OUE(4.2.14).TOTDB<3.14).TOTDL(3»14). 

♦  TOTDT <  3. 14 ) . WTOM( 4 .2.14).  XIjBTRN <  12.2)  >XDLTRN(  12.2) 

COMMON/O/ ART AR (12.2) . ARTCL  <  2 ) . ARTPOE  <  2 ) . AUGVAR (4.2). 

♦  CAPCTY (4.2)  »CUTF (4.2)  .1*1  LUCK (4.2>.LMAX(12)  .LMIN(  12)  . 

♦  MONRAY  (  14)  .POLAR  (  12.2)  »PUECL<2>  .RAMUA(4»2)  .  RHU(  4 . 2  )  f  NKMLL  (  2  )  . 

♦  SABAR( 12.2) »SDEV<4*2>  »SHIP< 12.6) »SOOAR( 4.12*2). T0AL( 14.12). 

♦  TBALT( 12) .TDCST<4. 12) . TDFCX < 5 . 4 ) . V I HES ( 14  > . TLOAD< 14.12) . 

♦  TLOADT (12). TMCYCL (4.2). TMEAN< 4.2).TTI<14)» 

♦  VARTM<  4 . 2 ) . TLOCKM< 4.2). DAVAR< 12.2 ) 

COMMON  /COMMOD/  WHEAT( 80.3) .SOY <80 .3 ) . BLYRYE (80 . 3 ) .CORN ( 80. 3 ) . 

♦  01 LSD ( 80 . 3 ) . ALMSTN( 00 . 3 ) . A1R0RE (80*3) . RAWMAT  <80.3). 

♦  COAL  (80.3).  PETROL  <  80 .  .< )  .  UR YBLK  <  80 . 3  >  .  GE NCAR  (00.3). 

♦  STLPRD<  00. 3 )  .  GRA  IN(80.3).ST  ONE  (80.3)  .ORE  (80.3).  BULK  (00.3). 

♦  GNC AR (80.3). CEMENT  <80.3).AMXN(80.3) 


DIMENSION  REDLT (3.2.5) 

DIMENSION  I ROSUM <  4 ) 

DIMENSION  CARF (3.15.00) 

INTEGER  GONOGO 
LOGICAL  YESTRN. 1  DEBUG 

DATA  I BM0/8H JANUARY  . 8HFEBRUAR Y . 8HMARCH  .0H1  APRIL  *8H2  APRIL  . 

♦  0HMAV  .0HJUNE  .8HJULY  .8HAUGU6T  .8HSEPTEM  . 

♦  8H0CT0BER  . 8HN0UEMBCR. 8H1  UECEM  *8H2  DECEM  / 

DATA  DM/31. .29. .31. » 15. . 15. .31 . .30. .31 . .31 . .30. .31 . *30. . 15. . 

♦  15./ 

DATA  TIMES  /  1.10.1.20.1.20.1.03.1.00*1.00.1.00.1.00. 

♦  1.00.1.00.1.00.1.00.1.00*1.05  / 

DATA  RHOMAX . RHOPOE  /  0.98.0.90  / 

DATA  MONRAY/4.5.6. 7.0.9. 10.11.12. 13. 14. 1 .2.3/ 

DATA  TT I /l. 28. 1.V3.1 .93*1.00.1.00*1 .00. 1 .00.1.00.1.00* 

♦  1 .00*1.00*1 .00.1 .03*1.05/ 

DATA  NEXPG.ABTEST  /  1..001  / 

DATA  TLOCKM/03. .65. .83. .65. . 145. .125 . *145. . 125./ 

DATA  LMIN/O. 0.0. 0. 600. 400. 700. 750. 050. 990. 1100. 1200/ 

DATA  LMAX/O. 0.0. 599. 699. 699. 749. 849. 989. 1099. 1199. 1299/ 

DATA  PC ARG . CAGOCM . SOR . ADDTRN . CARGOP . C TR AN. C T RNPM .EXTPT. 
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uuu 


♦  MRS.  THLOCK.VSA.BASEFT.CC.DFA.UISTN,  EMPTY,  F  ILL.  FLEETN.  FLOOD. 

♦  HRSYR,PQ»R£DFT » TDF,  1 RIPYR, VSH.NPIST ,  ZBHF  .  ADDPCT  *  CAP  INC ,  BTF , 

♦  CAREX 1.CAREX2. OATH. DIN. DIST.EXTP1.EXTP2.0DAYS.PCRF.SC0ST, 

♦  ST DEV, TLTHL2, TLTHL3, TURNBK , UNLOAD , XCAP • XSHIP » ZB ,GBAL .GLOAD, 

4  CAGOCL, DBTRN.DLTRN, DT ,QU£, TOTDB, TOTDL.TQTOT ,UTOH,XDSTRN, 

4  XOL  TRN , ARTCL , AR  TPOE , AVGVAR .CAPCTY . CUTF , DTLOCK , POEAR , POECL , 

+  RAMDA , RHO . RPHCL , SABAR , SPED, SHIP, SOOAR , T  SAL , TBALT • TDCST , TOFCX , 
4  TLOAD , TLOAOT , THCYCL , 1 Ht  AN, VARTH, WHEAT , SOY , BL YR YE.CORN.OILSD • 

4  ALMSTN, AIRORE ,  RANHAT , COAL  .PETROL  ,  DRYBLK , OENCAR ,  STLPRO, GRAIN, 

4  STONE , ORE , BULK , GMCAR , CEMENT , AMI N , AR  T AR , DCST , VARTNB , 

♦  REOLT  /  22962*0.0  / 

DATA  IYR, IPCARG, I IT. ISES. ILTH. IZBH.LYEAR, IDBTRN, ICTRNP. I PL TRN, 
4  I HRS, ILTR, IRHO, ISPtV. ISYSTH, ITLTR, ITHCST, ITHCYC. ITOT . ITOTC . 

6  ITTCST , ICAP, ICAPX , I YRCAP, J.K.HEASUR .NHOWTO  /2SO0*O/ 

i: 

9  FORMAT ( II > 

S  FORHATUX) 

972  FORMAT (SOX. 8A2.2X, 4 A2> 

S10  FORMAT  (II, IX. It) 

C 

3000  IDEBUG-.1RUE. 


*****  SYSTEM  LOOP  ***** 


3010  DO  100  1SYST-1.3 
3020  R£AD<  ISYST ,  S 1 0  > (iONOGO ,  IS 
IF ( CONOCO  *  EQ  *  0  >  GOTO  100 
C  ISU-1  EQUAL  HAITI NO  TIME  BASIS 

C  1SH-0  EQUAL  LUCK  UTILIZATION  BASIS 
VARTNB-2. 

ISU-0 
I NUMB— O 
JCT-O 
KU-2 

IF(IS.EQ.l)  KU-3 

C 

C  THE  RUN  SET  MODULE 

3030  CALL  RE AD IN  ( ISYST . IS. LU.KU. FACTOR .LALFAC . SYSF AC . 

♦  SYSAD0,SYSTIM,8TF4»B1F3, H(F13,8TF14, TDFCX » I DEBUG. 

♦  CARF > 


C 

C  *****  LOCK  CYCLE  TIME  LOOP  ***** 

c 

DO  110  ILTHL-1,3 

IF<  ILTMULTMLI.NE.l  I  GOTO  110 

IF  <  ILTML.EQ.2  >  CALL  TLOCMT CTLTML2»LU»IS) 

1F<  ILTML.E0.3  )  CALL  TLOCMT ( TL TML3.LU. IS ) 

i: 

C  INTERPOLATE  THE  COMMODITY  FURLASTS  AND  RETIREMENT 

c  percentages  for  intermediate  years 

DO  8300  IR-10.14.2 
YEAR-IR*! .0-8 
DO  H330  AC-  1.4 
DO  8540  HP-  1,2 

IF  (ISESU)  .EQ.  1)  GO  TO  8321 
CAR£X2< HC.NO, IR) ■( AREX2<HC»ND,S )4<  YEAR/7.0)* 
<CAREX2(HC,ND,1S)-CAREX2<MC,N»,8) ) 

00  TO  8540 

CAREX1  (HC.MD.IRl-CARLXHHC.ND.B) 4  <  YEAR/7. 0>* 
(CAREX1  (MC.ND ,  15 1-CAREX1 < MC ,N1),8)  > 

CONTINUE 
CONTINUE 

DO  HS31  LC-  4.LU 

P0( IR,LC>-PO(B.LC>+< YEAR/7. 0)*<P0< 15, LC ) -P0(8. Lfc) > 
CONTINUE 
CONTINUE 
DO  8510  1R-16.18.2 

YEAR-IR*! .0-13.0 
DO  8570  MC-  1,6 
DO  8580  ND-  1,2 

IF  (ISES(l)  . EQ.  1>  GO  TO  8522 
CAREX2<  MC.ND.  IR)-CANF.X7(MC,ND,  l3)4(YEAR/3.0> 

4  *<CAR£X2(MC.ND.20)-C'AREX2<M(,ND.  131  > 

GO  10  8580 

H322  CAREX1 < M£  . ND .  IR > -CAREX 1 ( MC , ND , IS ) 4 ( YEAR/3 . 0  > 

4  *(  CAREX  1  < MC  . Nil.  20 ) -CAREX  1  (  MC.ND ,13)) 


H321 

H340 

H530 


H331 

HSOO 


H580 

H370 


N371 

H310 


CONTINUE 

CONTINUE 

DO  8371  LC-  4.LU 

P0< IR ,LC  > -P0( 13.LC )4<  YEAR/3,0)* ( PO 1 20 ,LC > -PO ( 13.LC)) 


CONTINUE 

CONTINUE 


DO  8330  IY-2.7 

DO  8380  I YEAR-2.8. 2 
IR-IY*104IYEAR 
IF < IR.UT .80)  00  TO  8390 
IDCC-IY8I0 
IOECl-< IY41 )«10 
YEAR* I YEAR *1.0 
8360  DO  8*00  MC-  If  6 

DO  6610  ND-  1.2 

IF  <ISES(1)  .CQ.  1>  00  TO  8323 
CAREX2<  MC » N D.  IR  >  -CAREX2  < MC . ND .  IDEC  )  -f  <  YEAR/ 10.0) 

6  *<CAREX2<NC.ND. IDEC1 )-CAREX2<HC»ND. IDEO  > 

00  TO  8610 

8523  CAREX1 (MC.ND. IR)-CAREX1 (MC.ND. IDEC) 6  <  YEAR/ 10 .0)* 

6  (CAREX1(MC»M0.IDCC1>-CAREX1(MC.ND.IDCC) ) 

8610  CONTINUE 

8600  CONTINUE 

DO  8601  LC-  4 t LU 

P0< IR»LC)-PO( IDEC.LC )4( YEAR/10 .0 )*(P0 ( IDEC1 »LC) 

4-P0( IDEC.LC) ) 

8601  CONTINUE 
8390  CONTINUE 
8530  CONTINUE 

i: 

C  *****  SEASON  EXTENSIN  LUOP  ***** 

i; 

5040  DO  120  ISN-  1.2 

IF <  XSES ( ISN)  .NE.  1)  00  TU  120 

IF  <  ISN  .EQ.  1  >  CALL  S£SONS< ISN. FACTOR. CAREX1 • 

4  EXTP1. TDIN.UIN) 

IF  (  ISN  .EQ.  2  )  CALL  St SONS ( ISN.FALT0R.CAREX2. 

4  EXTP2. TDIN.UIN) 

C 

C  *****  YEARLY  CYCLE  LOOP  ***** 

i: 

DO  129  IRINC-8.80.2 

IF ( IRINC . EQ. 16)  IR-13 
IF < IR INC • EQ. 16 )  GO  TO  7510 
7300  IR-IRINC 

C  CONVERT  YEAR  SUBSCRIPTS  INTO  ACTUAL  YEAR 
7310  IYR(IR)-19704IR 

UO  781  LC-  3.LU 
REDFT (LC ) *1 • 0 
781  CONTINUE 

C 

C  *****  APPROXIMATION  CYCLE  LOOP  ***** 

C 

5030  DO  140  1APR0X-1.J 

INDEXC-IAPROX-1 

C 

C  THE  FLEET  FORECAST  MOULE 

CALL  FLEET  ( INDEXC* IR. ISN.LU. IS* SYSFAC . SYSADD > 
DO  9700  LKO-  1.4 
IR0SUM<  LKO ) ■  0 

9700  CONTINUE 

C 

C  *****  STEP  THROUGH  MONTHS  STARTING  WITH  EARLY  APRIL  LOOP  ***** 

C 

3060  DO  ISO  MNNR-1.14 

MN-MONRAY(MNNR) 

i: 

C  THE  TRANSIT  FORECAST  MODULE 

DFA<MN.ISN)«I»IN<MN»  ISN)/TDIN 

211  CONTINUE 

CALL  LT RAN  < IR. ISN • LU.MN. IS. INDEXC. 

4  YESTRN. TDFCX ) 

CALL  TFRCT <LU.MC . MN. ABTEST . IR. ISN. 

4  BTF4.8TF3.BTF13.BTF14) 

IF  {  .NOT. (YESTRN)  )  DBTRN<3»2»NN)-0 
1F(  .NUT. (YESTRN)  ) ISYSTM ( MN) *0 
3070  IF <  IAPROX.NC • 3  )GUTU  ISO 

RH0(2*1 )-0, 

JCT-0 

IF ( IS.NE . 1 >G0T0  172 


C  THE  SHIP  DISPATCH  MODULE 
71 


CONTINUE 

CALL  DISPCH<MN»LU. IS. ISW. JCT . RHOPOE 
DATM) 

CONTINUE 


C  THE  LUCK  CYCLE  TIME  MODULE 

i:  the  queueing  nodule 
S080 


1/0 


IF  NECESSARY* 


LKST-  1 

IF  <IS  .EO.  1  .AND.  LU  .OE.  12) 

LNST«  2 

DO  170  LAN  LKST.AU 

CALL  CYCLTHILK'LU. IS'HN.AHOCAP' 
RHONAX . RHOPOE f  INC Y . VANINS > 

CALL  QUEHOD( LA 'NNt IS.CALFAC.LU) 
CONTINUE 


RETURN  TO  INC  DISPATCH  NODULE 
JCT-JCT+1 


171 


202 


203 


IF(  IS.MC.  1)  -00  TO  201 
IFUSW.EQ.l)  QO  TO  203 
IF(JCT.EQ.2>  00  TO  201 
DO  202  ND-1'2 
DO  171  LK—  LKST.KU 
IF  (LU  .OE.  11) 
TLOCKN(LK.ND)- 
TNCYCL(LK'ND) 

continue 

IF  ( LU  *LE . 10  >  TLOCKNi 2'ND) 

■  TNCYCLU.ND) 

IF  (LU.LE.10)  TLOCKN ( 3 . ND ) 

•  TNCYCL(2'ND> 

CONTINUE 
GO  TO  71 
CONTINUE 

IFIftPNCLIl ) .OE.O.AND.UTQN(l'l'NN) 
•  LT • W  rQN( 2. 1 ' NN)  (GOTO  71 


THE  ECONOMICS  NODULE 


C  THE  ECUNONICS  NOUULE  COMPUTES  THE  MONTHLY  DELAY  COST  BY  LUCK  AND 
i:  VESSEL  CLASS 

201  CONTINUE 

DU  A 20  LK-LKST.KU 
DO  410  LC-4.LU 

TDCST<LK>LC)-0. 

DO  400  ND-1'2 

DCST -UTON ( LK . MD . NN ) SSCDS T ( L C ) * 

*  SQOAR (LK'LC'NDl/1000. 

TDCST(LK.LC)«TDCST(LK'LC)+DCST 

400  CONTINUE 

9090  I1NCST(NN'LC'LK>»TDCST<LK'LC)*DN 

♦  (NN)TO.S 

410  CONTINUE 

420  CONTINUE 


THE  CARGO  TONNAGE  MODEL 


CALL  L ARTONI LU . LK » NN ' I S . SYSF AC . SYSADD . 
SY8TIN' IROSUN ) 


ISO  CONTINUE 

1*0  CONTINUE 

C 

C  *«»«»  END  STEP  THROUGH  MONTHS  ***** 

C  *****  END  APPROXIMATION  LOOP  ***** 

C 

C  CHECK  TO  SEE  IF  CAPACITY  HAS  BEEN  REACHED 

C 

1CAP-  0 

IF  US  .£Q.  1)  GO  TO  7010 

IFUROSUNU)  .OE.  630)  ICAP-  1 
GO  TO  7000 

7010  DO  7040  LK-  1.4 

IF  <LU  .UE.  12  .AND.  LK  .EQ 
IF  (LU  .LE.  10  .AND.  LK  .EG 


1)  GO  TO  7040 
4)  GO  TO  7040 


.GE.  430)  ICAP-  LK 


IF  (lROSUH(LK) 

7040  CONTINUE 

7000  CONTINUE 

1FUCAP  .EO.  0)  GO  TO  7390 
C  IF  CAPACITY  HAS  REACHED  DETERMINE  WHAT  YEAN 

IF  (IROSUNUCAP)  .GT.  438)  GO  TO  7090 
IYRCAP-19704IR 
GO  TO  7930 

7030  IYRCAP-194941R 

C 

C  *****  THE  OUTPUT  NODULE  ***** 

C 

7330  CONTINUE 

CALL  OUTHODILC'LU'IS'I NUMB . I R  » I SN . I L  TNL  > NKXPG . ICAP . CARF  > 
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131  IF  (ICAP  .£Q.  0)  00  TO  130 
7040  WRITE  (8.7 069) 

7069  FORMAT  (3(7) ) 

wane  <8.70?o>  iyrcap 

7070  FORMAT  (30X.29H****  CAPACITY  WAS  REACHED  IN  tI4» 

♦  1X.4H****) 

C 

C  18  A  CAPACITY  EXPANSION  MEASURE  TO  BE  IMPLEMENTED? 

C 

RCAD< I8YST *4000)  ICAPX 
4000  FORMAT  (ID 

IF< ICAPX. EQ.O)  60  TO  100 
«:  READ  IN  THE  CAPACITY  EXPANSION  MEASURE 
READ  < ISYST . 4000 ) ME ASUR 
JMMEASUR.EQ.l)  00  TO  4020 

JFiMEASUR  .tO.  2  .OR.  MEASUR  .EO.  3>  00  10  4040 
IF<MCA8UR.E0.4>  OU  fU  4050 

4020  IF < ICAPX. OT.l)  UO  TO  4021 

C 

C  CAPACITY  EXPANSION  MEASURE  It  REDUCE  LUCKING  TIME 

C 

READ< ISYST *4060) < (REDLT ( IS.ND.K )  »ND»l .2)  »K»l .5) 

4040  FORMAT (2F7. 2) 

4021  R£AD< ISYST »4000>  NHOWTO 
UO  4080  LC*4»LU 

00  4070  NDM*2 
DO  4090  J«l»4 

THLOCMLC.ND. J)-TMLOCK < LC . ND. J > * < 1 . 0-REDL1 OS. HD. 

4  NHOWTO) > 

TLTML2(LC.ND.  J)«TLTML2(LC#N))»  J)*< 1 • O-REDLT ( IS.ND. 

4  NHOWTO)) 

TLTML3<LC»MD.J>*1LTHL3(LC.MD.J)#(1,0-REDLT< IS.ND. 

4  NHOWTO)) 

4090  CONTINUE 

4070  CONTINUE 

4060  CONTINUE 

DO  4081  ND*i » 2 

REDL  T ( IS .ND» NHOWTO ) -REDLT ( I S . HD  t NHOWTO  >*100.0 

4061  CONTINUE 
WR1TEO.7049) 

WRITE<8.4100>  REDLT < IS* 1 1 NHOW 1 0  > » REDLT (IS.  2 1 NHOWTO > 

4100  FORMAT (23Xt45H  CAPACITY  INCREASED  BY  REDUCING  LOCKING  TINE  . 

4  F4.lv 16HX  DOWNBOUN0  AND  vF4.1vlOH  X  UPBOUND) 

IF ( NHOWTO . EQ. 1 )  WRITE(8.403l ) 

IF ( NHOWTO. EO. 2)  WRITE< 8.4032) 

IF < NHOWTO. EO. 3)  WRITE (8 .4033) 

IF ( NHOWTO. EO. 4)  URIT£<6.4034) 

IF  (NHOWTO  .EO.  5)  URI1E<8.4035> 

4031  FORMAT (32X.36H****  TRAVELING  KEVELS  AND  WINCHES  WERE. IX. 

4  14HCONSTRUCTE0  ****) 

4032  FORMAT (30X.44H****  SHIP  SPEED  INTO  LOCK  WAS  INCREASED  ***«) 

4033  FORMAT (38X.44H****  LUCK  CHAMBERING  TIME  WAS  DECREASED  **»*> 

4034  FORMAT (34X.46H****  TRAFFIC  CONTROL  SYSTEM  WAS  IMPLEMENTED  •***> 

4035  FORMAT  (40X.41H*****  NONSTRUCTURAL  MAXIMUM  UTILITY  ***«*) 

UO  TO  130 

C 

C  CAPACITY  EXPANSION  MEASURE  31  INCREASE  ALLOWABLE  SHIP  DRAFT 

i; 

4040  READ  (ISYST .4044)  DRAFT 
READ  (ISYST *4000)  LOCKS 

4044  FORMAT  (F4.2) 

IF  (DRAFT  .LE.  25.75)  GO  TO  4030 
DO  4048  LC«  4.LU 
00  4047  MC*  lv 4 

CC(MC.LC)-  CC ( MC * LC > 4 ( ( DRAFT-25 *5)*12.0) *CAP I NC ( LC ) 

4047  CONTINUE 

4048  CONTINUE 
WRITE  <8* 7049) 

WRITE  (8.4049)  DRAFT 

4049  FORMAT ( 21 X.48H****  CAPACITY  INCREASED  BY  INCREASING  ALLOWABLE  ’ 
4  13HSHIP  DRAFT  T0.F4.2»10H  FEET  *<**> 

IF  (LOCKS  .UE.  1)  OU  TO  4030 
(10  TO  130 
C 

C  CAPACITY  EXPANSION  MEASURE  21  CONSTRUCT  LARGER  LUCKS 
C 

C  READ  IN  THE  NEW  MAXIMUM  SHIP  SIZE 
4030  READ  (ISYST. 4043) 

READ  (ISYST. 4041)  NEWLU 

4041  FORMAT  <I2> 


LUP-  Lim 

C  READ  NEW  SHIP  UTILIZATION  FACTORS 

IF  < IS  .NE.  1)  REAO  (ISYST, 4042)  (ZBHF(LC) .LC-LUP. 12) 

IF  (IS  .EQ.  1)  REAO  <1SYST»4042>  ( ZBHF (LC) .LC-LUP. 12> 

4042  FORHAT  (2F5.2) 

4042  FORHAT  (5F5.2) 

i:  READ  NEW  FLEET  HIX  BUILDING  FACTORS 
REAO  (ISYST. 4043) 

4043  FORHAT  (/) 

REAO  ( ISYST  »  4044 )  < < ADDPCT(HC»LC ) .HC-1 ,4) »LC-4» 12) 

4044  FORHAT  < 4F4.2 ) 

C  READ  IN  SHIP  CARRYING  CAPACITIES 
REAO  (ISYST .4043) 

IF  (IS  .NE.  1)  REAO  <ISYST»604S>  < (LC(HC.LC) .LC-LUP. 12) .HC-1 .4) 

IF  (IS  .EQ.  1)  REAO  (ISYST. 4045)  <  UX'CHCv LC) (LC-LUP. 12) »HC-1 .4) 

4045  FORHAT  (2F7.0) 

4045  FORHAT  (5F7.0) 

C  REAO  IN  LOCKING  TINES 
READ  (ISYST .4043) 

REAO  (ISYST. 4044)  ( < ( THLOCK ( LC . NO. J) »LC-4. 12) .ND-1 .2) . J-1.2) 

READ  (ISYST. 4043) 

READ  (ISYST. 4044)  (  (  ( TLTHL2(  LC . Nil .  J )  »LC-4 . 12)  .ND-1 . 2 >  .  J-l  ,2) 

READ  (ISYST. 4043) 

REAO  ( ISYST .4044)  < < ( TLTHL3(LC.ND» J) .LC-4. 12) ,N0-1 .2) . J-l .2) 

4044  FORHAT  (9F4.1) 

C  LOCKING  TIHE  STANDARD  DEVIATION 
REAO  ( ISYST .4043 ) 

REAO  (ISYST. 4044)  ( ( (STOEV(LC.NO» J) . LC-4. 12) . ND-i .2) » J-l .2) 

IF  (IS  .NE.  1)  GO  TU  4074 
HO  4075  LC-  4.NEWLU 
DU  4074  NO-  1.2 
00  4077  J-  3.4 

THLOCK  (LC.NO.J)-  THLOCK  (LC  .Nil.  2 ) 

TLTHL2(LC.ND. J)-  TLTHL2(LC » NO .2 ) 

TLTHL3< LC.NO.J)-  TLTHL3 ( LC » NO » 2 > 

STDEV< LC.NO.J)-  STDEV ( LC »ND . 2 ) 

4077  CONTINUE 

IF  (NEWLU  .LE.  11)  GO  TU  4074 
T HLOCK ( LC . NO . 1 ) »  0.0 
TLTHL2(LL. NO. 1 )-  0.0 
TLTHL3(LC»N0» 1 )-  0.0 
STDEV ( LC » NO. 1 )-  0.0 

4074  CONTINUE 

4075  CONTINUE 

4074  00  8073  ND-1. 2 

REDLT ( IS .NO.NHOWTO )-REDLT ( IS.ND.NHOWTO) /100. 0 
H073  CONTINUE 
KX-2 

IF  (IS  .EQ.  1)  KX-3 

IF  (IS  .EQ.  1  .AND.  NEWLU  .GE.  1)  KX-4 
DO  8074  LC-  4. NEWLU 
DO  8073  NO-  1.2 
DO  8074  K-  l.KX 

THLOCK ( LC . NO . K ) -  THLOCK ( LC .NO . K ) t ( 1 . O-REDL T ( IS . ND . NNOWTO ) ) 
TLTHL2( LC. NO. K)-TLTHL2(LC. ND. K )«( 1 .0-REDLT( IS.ND.NHOWTO) ) 
TLTHL3(LC.ND.K)-TL1HLJ(LC.N0.K)t( 1 . O-REDL T  < IS  » ND .NNOWTO ) ) 
H074  CONTINUE 

H073  CONTINUE 
8074  CONTINUE 

C  READ  IN  LOAOING  ANO  UNLOADING  RATES 
READ  (ISYST. 4043) 

READ  (ISYST. 4047)  ( (FILL(HC.LC) .HC-1 .4) .LC-LUP. 12) 

REAO  (ISYST. 4043) 

READ  (ISYST. 4047)  ( (EHPTY(HC.LC) .HC-t .4) .LC-LUP. 12) 

4047  FORHAT  (4F7.1) 

C:  REAO  IN  VESSEL  SPEED 
READ  (ISYST. 4043) 

IF  (IS  .EQ.  1)  REAO  (ISYST. 4048)  ( < VSA(HN.LC. 1 > »HN-l . 14) ,LC- 

♦  LUP. 12) 

IF  (18  .NE.  1)  READ  (ISYST. 4048)  < (VSA(HN»LC»2 ) .HN-1 . 14 ) ,LC- 

♦  LUP. 12) 

4048  FORHAT  (14FS.2) 

C  READ  IN  RETIREHENT  PERCENTAGES 
READ  (ISYST. 4043) 

DO  4049  J-  1.9 


Jl- 

J- 

1 

IF 

(Jl 

.EQ. 

0) 

IRR- 

8 

IF 

(Jl 

.EQ. 

1) 

IRR- 

IS 

IF 

( Jl 

.GE. 

2) 

IRR- 

Jlt  10 

IF 

(18 

.NE. 

1  > 

READ 

(ISYST, 4052) 

(P0( IRR.LC) 

.LC-LUP. 12) 

IF 

(IS 

.EQ. 

1) 

READ 

( ISYST » 4052) 

(PO(IRR.LC) 

.LC-LUP, 12) 

4049  CONTINUE 
4052  FORHAT  (SF3.2) 
4052  FORHAT  (2F5.2) 
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DO  *033  LC-  LUP. NEWLU 
DO  4034  J-10.14,2 
YEAR-  J*  1.0-  8.0 

PO(J.LC)*  P0( 8. LC ) ♦ <  YEAR/ 7. 0 )•( P0(  13.LC) -P0(  B.LC)  > 
CONTINUE 

DO  4033  J*  14.18.2 
YEAR*  J*1 .0-13.0 

PO(J.LC)*  P0( 13. LC>+( YEAR/3. 0>*(P0< 20. LC)-PQ(13.LC>> 
CONTINUE 
DO  4034  J*2.7 

DO  4034  JJ-  2.8.2 
TEAR*  JJtl.O 
JYR*  J* 1 04 JJ 
J10*  J«10 
J20-  J41G+10 

P0<  JYR.LO*  P<1(  J10.LC  141  TEAR/10.0)  4<PO<J20<LC >- 
P0( J10.LC) ) 

CONTINUE 
CONTINUE 
4033  CONTINUE 

C  READ  IN  CAPACITY  INCREASE  WITH  DEPTH 
READ  ( ISYST .4044 ) 

If  (IS  .HE.  1>  READ  < ISYST .4038)  (CAPINC(LC) .LC-LUP. 12) 

If  (IS  . £0.  1)  READ  ( ISYST .4038)  (CAPINC(LC) .LC*LUP» 12> 

4038  fORHAT  (2F7.2) 

4038  FORMAT  (SF7.2) 

WRITE  (8.7049) 

WRITE  (8.4082) 

4082  FORMAT  (31X.44H****  CAPACITY  WAS  INCREASED  BY  BUILDING  LARGER. 
♦  IX . 10HLOCKS  ***«) 

IF  (NEWLU  .EQ.  11)  WRITE  (8.4083) 

IF  (NEWLU  .EO.  12).H8ITE  (8»40B4>__ 

4083  FORHAT  ( 49X . 29NMAX I MUM  SHIP  Bl2E  IS  1100X103) 

4084  FORHAT  (45X.29HHAXIMUH  SHIP  SIZE  IS  1200X130) 

C 

C  SET  THE  NEW  BASE  FLEET  EQUAL  TO  THE  FLEET  FOR  THE  CAPACITY  YEAR 

C 

DO  4042  HC-  1.4 

DO  4043  LC*  4.LU 

BASEFT ( HC  *  LC ) *  SHIP(LC.HC) 

4043  CONTINUE 

DO  4044  LC-LUP. NEWLU 
BASEFT (HC .LC) *  0.0 

4044  CONTINUE 
4042  CONTINUE 

c 

c 

C  HAKE  PROGRAMMING  CHANGES  CORRESPONDING  TU  THE  NEW  LOCKS 

C 

DO  1319  LC-LUP.NEWLU 
GLOAD(LC>*  0.0 
G8AL (LC )*  0.0 
Z8(LC)-  ZBHF(LC) 

IZBH(LC)*  100*ZB(LC)+0.3 
1319  CONTINUE 

C  DIFFERENT  LOCKS  AT  THE  SOO 

If  (IS  .EO.  1  .AND.  NEWLU  -GE.  ll)  KU-  4 
C  CHANGE  NON-CONSTRAINING  LUCK  FACTORS 
IF  (IS  ,EQ.  1)  GO  TU  4071 
IF  (IS  .EO.  2)  GO  TO  4072 
CALFAC*  4.0 
SYSfAC*  4.0 
SYSTIH-  13.0 
GO  TO  4071 
4072  CALFAC*  3.0 

SYSfAC*  3.0 
SYSADO*  0.0 
SYSTIH*  2.0 
4071  CONTINUE 
LU*  NEWLU 
GO  TO  130 
4030  GO  TO  100 

130  IF(IR.EO.IS)  UO  TU  7300 

129  CONTINUE 

1 20  CONT I HUE 

110  CONTINUE 

100  CONTINUE 
C 

C  »**«*  END  YEARLY  LOOP  ***** 

C  **«*•  END  SEASON  EXTENSION  LOOP  ***** 
i:  *****  END  LOCKING  UHC  LOOP  ***** 

C  *****  END  SYSTEM  LOOP  * 

C 

STOP 

END 


4034 


4035 


4037 

4034 


C 
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SUBROUTINE  FLEET  ( INDEXC, IR» I&N.LU. IS, SYSFAC . SYSADD ) 

i: 

IMPLICIT  INTEGER  <I) 

C 

c 

C  SUBPROGRAM  FLEET  CALCULATES  THE  ZERO-BACKHAUL  FLEET 
C  REQUIRED  TO  TRANSPORT  THEPOTENTIAL  CARGO  TONNAGE 

C 

COMMON  /MINARY/  BASEFT( 4, 12>,CC(4,12)»DFA(14,4> »DISTN(2»4) , 

♦  EMPTY<4,  12),FILL(4,12)  ,FLEETN(4,  12)  ,FLOA0(4)  ,HRSYR(4-), 

4  PO(0O,12).REDFT(12),TDF(  12, 14) , TRIPYR(4» 12) ,V8M( 12,4) , 

4  WDIST(A) * ZBHF  < 12) »ADDPCT (6*12) , CAP INC < 12) 

COMMON  /CALCOM/  ADDTRN(4, 12,2) » C ARGQP ( 6 »  2 » 80 >  , 

♦  CTRAN(4, 12» 4 ) ,CTRNPM(4. 12.2). EXTPT( 4, 2,80) ,HRS( 14,4,4 ) . 

♦  TMLOCK (12.2*4). USA < 14,12.4) 

CUHHON/QUCC0M/CAGOCL (4,12). DBTRN <  1 2. 3 . 1 4  > , DL TRN (12.3,14), 

♦  DM< 14) ,0T< 12,3. 14) ,IUN1RN( 12,3) , ICTRNP (4, 12,2),IDLTfcN( 12.3). 

4  IHRS < 14)»ILTR<3»12>. IRHO< 4, 14 ) , ISD£V( 4 ,2.14). ISYSTM< 14 ) , 

♦  ITLTR(3,12)»ITMCST(13,12.4)» I TMCYC (4,2,14),) TO! (3.3) , 

4  IT0TC(2,4> , ITTCST ( 12,3) ,QUE< 4,2. 14) , T0TDB(3, 14) , TOTDL( 3, 14 ) » 

4  TOTDT (3,14)  ,NT0M(4,2»  14)  ,XDBTRN(  12, 2)  » XDLTn?  (12,2) 
UiMMQN/Q/ARTAR (12,2),  ARTCL <  2 )  ,  ARTPOE  ( 2  > ,  AVGVAR (4,2). 

4  CAPCTY(4.2)  ,CUTF(4,2).DTLUCK(4.2),LMAX<12),LNIN<12), 

4  MONR A Y  (  1 4  )  ,  POE AR  (12,2)  ,P0ECL<2>  , RAMDA (4,2)  ,  RHO (4,2), RPML'L  < 2 )  » 

4  SABAR( 12,2) ,SD£V( 4,2) ,SHIP( 12,4) ,S00AR( 4, 12.2), TBAL( 14,12) , 

4  TBALT(12> . TDCST(4, 12),TDFCX(3,4) , TIMES ( 14), TLUAD< 14 , 12 ) , 

4  TLOADT ( 12 ) , TMC YCL (4,2). TMEAN (4,2>,TTI(14), 

4  VARTM(4,2) ,TL0CKM(4,2) »DAVAR( 12,2) 

C 

DIMENSION  AUDSHP(4,12) ,ALLSHP(4, 12 ) , ANCAP( 4 ) , L ARGON ( 4 > , 

4  DELSHP( 4, 12) ,FLEETR<4, 12) , SHPCAP(4, 12) , 1  INELK ( 12) ,TRIPTM(4,12) 
DIMENSION  COMSHA(A) 

C 

ABTEST-.001 
DF-1.0 
00  3  MC* 1,4 

MRSYR(MC>-0. 

ANC AP ( MC ) *0 . 

DO  3  LC-4.LU 

VSM( LC  » MC ) *0. 

ALLSHP(MC,LC)-0. 

ADDSHP<MC,LC>-0. 

DELSHP<MC.LC)-0. 

3  CONTINUE 
3  CONTINUE 

c 

C  PROHIBIT  CERTAIN  VESSELS  FROM  WINTER  OPERATION 
DO  10  MW* 1,14 

IF<HN.LE.3.AND.ISN.GE.2)VSA(MN,4,ISN)*0. 

IF (  MN.LE.3  .AND.  ISN.GE.2  ) VSA ( MN , 5 , ISN ) -0 . 

IMIS.  NC  *  1  •  AND .  MN  •  LE  •  4 .  AND  •  I SN  .  GL  .  2  )  VSA  (  MN  ,4,1  SN )  *0  • 

IF (  I6.NE.1.AND.MN.LE.4.AND.ISN.GE.2  )VSA(MN,3. ISN)-0. 

IF ( IS. NE. 1 .AND.MN.EO. 14. AND. ISN . UE . 2 ) VSA( MN, 4 , ISN ) -0. 

IF (  IS.NE. 1 .AND.MN.EO. 14. AND. ISN.GE.2  ) VSA(MN,3. ISN>-0. 

C 

C  CALCULATE  THE  OPERATING  HOURS  PER  YEAR 
DO  8  MC* 1 , 4 

HRS YR ( MC ) «HRS YR ( MC  >  4HRS <  MN , I SN , MC  > 

H  CONTINUE 
10  CONTINUE 

DO  30  LC*4.LU 
C 

C  CALCULATE  THE  MEAN  VESSEL  SPEED 
DO  20  MN* 1,14 
DO  13  MC  *1,4 

IF  ( VSA ( MN , LC , 1 SN ) . LE . 00 . 0 )  VSA(MN.LC. ISN)«0. 

VSM<  L  C ,MC ) -VSA( MN.LC , ISN ) BHRS ( MN , I SN.MC ) /MRSYR<  MC ) 

4  4VSM(LC.HC) 

13  CONTINUE 

20  CONTINUE 
C 

C  CALCULATE  THE  TIME  SPENT  IN  THE  LOCKS 
IF(IS.EQ. 1 .AND.LC.GE.8) J-3 
IF ( IS.EO. 1 . AND . LC . LE . 7 ) J* 1 

IF ( IS. EQ. 1 ) TIMELK (LC )«<  TMLOCK (LC , 1 , J) ♦ TMLOCK ( LC ,2, J) >/40. 

IF  (  IS  . EQ •  2  )  TIMELK  (  LC  )  •  (  TMl^OCK  (LC,  1,1  ) 4 TMLOCK (LC.^j  1  >4SYSFAC 
4  t ( TMLOCK ( LC , 1 , 2 ) 4 TMLOCK (LC , 2, 2  > ) )/40.4SYSADD 

IF(  IS.  EQ.  3)  TIMELK  (LL*)-<  TMLOCK  (LC,  1  .  1  >4TML0CK(LC»  2. 1 J4SYSFAC 
4  * ( TMLOCK ( LC ,1,2)41 MLOCK ( LC ,2,2) ) )/40 

30  CONTINUE 
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DO  SO  HOI. 4 

IF< IMD£XC.EO.O>C»ROOP<HC.  1>IR)-1000.« 

4  CARGOP<MC» 1 . IK) 

IF  < IHDEXC • EQ • 0  >  CARGOP<HC »  2r  IR >*1000 • * 

♦  CARQ0P<MC>2. IR) 

TCARG-CARQOP <  HC . 1 . 1 R ) 4CARG0P ( HC  >  2 . IR  > 

IF  <A8S<TCARG).LE.ASTEST>  HDIST<HC>-0 
IF  (ABSCTCARG) .LE. ABTEST)  GO  TO  40 

MOIST <HC)»<CARG0P<MC. 1. IR)*DISTM< 1 .hC)+CARG0P<KC»2. 

4  IRXDISTN<2>MC) >/TCARG 

40  CONTINUE 

PNASE  OUT  OLD  SHIPS 
DO  90  LC-4.LU 

FLEETR(NC.LC)-SAbEFT(ML.LC>*( 1 .O-PO(IR.LC) > 

CALCULATE  THE  TINE  PER  ROUND  TRIP 

rRIPTH<HC.LC)-Df*<2.O»M0IST<MC>/VSM<LC.HC>4CC<HC.LC>* 

♦  fload(nc)/enptt<hc.lc>+fload<hc)*cc<ncpLC)/' 

4  FILL(MC.LC)  )4TIM£LK<LC> 

IF  ( ASS ( MOIST  INC ) ) • LE . AD TEST  >TRIHYR( HC »LC ) *0 
IF  <ADS( MOIST (HC) ) .LE. ABTEST. OR. ASS < TRIPTHC NC .LC ) ) 

4  . LE • ABTEST ) GO  TO  80 

CALCULATE  THE  NUNBER  OF  ROUND  TRIPS  PER  TEAR  PER  VESSEL 
TRIPYR<HC.LC>*HASYR<RC>/TRIPTHIHC.LC> 

HO  CONTINUE 


CALCULATE  THE  REMAINING  FLEET  TRANSPORT  CAPACITT 

SHPCAP ( HC . LC )aFL££TR (HC. LC ) STRIP YR( HC » LC ) .CC ( HC  .LC ) * 
4  FLOAD(NC) 

ANCAP < HC ) ■ ANCAP  < HC >  4SHPCAP <  HC . LC ) 

VO  CONTINUE 

CARGON <HC)>CARGOP<HC. 1 > 1R> 4CARG0P< HC > 2. IR)- 
+  ANCAP (HC ) 

IF<AM<CARGON<HO  >  .LL. ABTEST)  GO  TO  599 
I F < CARGON < HC ) .LT .0*0)  GO  TO  299 

BUILD  SHIPS  TO  HEET  THE  CARGO  DEHAND 

DETERMINE  THE  COHPOSITE  SHIP  TO  BE  ADDED 
COHSHA<HC ) *  0.0 

DO  7600  LC-  4 dLU  . 

COHSHA<  HC ) -  COHSHA<  HC  )4  ADDPCT < HC b LC ) *  TRIPYR<HC.LC>* 

4  CC  <  HC  »  LC )  *FLOAD  <  HC  ) 

?60O  CONTINUE 

DETERHINE  THE  NUHBER  OF  SHIPS  TO  BE  ADDED 
DO  7610  LC-  4  »LU 

ADDSHP  <  HC » LC ) -  < CARGON < HC ) /COHSHA < HC >) «  ADDPCT (HCtLC ) 

CALCULATE  THE  HEW  FLEET  HIX 

FLEETN<MC»LC>-  FLEETR(MC*LC)4  ADDSHP<MC sLC ) 

/6I0  CONTINUE 
GO  TO  499 

DELETE  SHIPS  IF  NECESSARY 


299  DO  190  IC-  4  r LU 

LC-  IC 

IF  <ABS<TRIPYR<HC*LC) )  .LE.  ABTEST)  DELSHP < HC sLC >-  0.0 
IF  <ABS<TRIPYR<HCsLC> )  .LE.  ABTEST)  UU  TO  1V0 

DELSHP <  HC  sLC ) -  -CARbON< HC ) /< CC < HC sLC > *FLOAD< HC )* 

♦  TRIPYR<HCsLC> ) 

IF  <IS  .NE.  1  .ANO.  HC  .GE.  5)  GO  TO  399 
IF  <  DELSHP < HC s LC )  .LE.  FLEETR<HC  sLC  > )  GO  TO  399 
DELSHP <HCsLC)-  FLEETR(HCsLC) 

CARGON < HC>-  CARGON <HC) 4  DELSHP < HC » LC ) * 

♦  FLOAD<  HC ) tCC ( HC  t LC) BTRIPYR  <  HC  sLC ) 

190  CONTINUE 

399  CONTINUE 


CALCULATE  THE  NEW  FLEET 


DO  200  LC-  4* LU 

FLEE TH<  HC  bLC ) -  < FLEETR<  HC » LC ) -DELSHP < HC sLC) ) 
200  CONTINUE 

499  CONTINUE 

599  CONTINUE 
50  CONTINUE 

DO  78  LC-3tLU 
TLOADT <  LC )-0. 

TBALT <LC)-0« 

DO  27  HC-1 f 6 
DO  26  ND- 1 s2 

ICTRNP<HCsLCsND)-0 


76 

27 

/S 


CONTINUE 

CONTINUE 

CONTINUE 


RETURN 

END 
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SUBftOUT I M€  L TRAN < IR* ISM* LU  »  MN» 18 1 INDCXC » YESTRN • T DFCX ) 

C 

IMPLICIT  INTEGER  <I> 

C 

C 

C  SUBPROGRAM  LTRAN  CALCULATES  THE  TOTAL  NUMBER  OF  ANNUAL 

C  LOADED  TRANSITS  AND  DISTRIBUTES  THE  TRANSITS  OVER  THE  OPERATING  YEAR 

i: 

COMMON  /MINARY/  BASEFTC6* 12)»CC<6»12) »DFA( 14*4 >  » DISTN<2»6>  » 

4  EHPTY<6» 12)»FILL(6» 12) »FLEETN<6» 12) »FLOAD< 6) r HRSYR< 6 > » 

♦  P0480»12) »REDFT< 12) » TDF< 12* 14)  *  TRIPYRCAv 12) *  VSN< 12*6) * 

4  WDXST (6) rZBHF  < 12) * ADDPCT (A* 12) *CAP1NC( 12 > 

COMMON  /CALCOM/  ADDTRN< 6» i2» 2) » CARGOP < 6 t 2,80 ) * 

♦  CTRAN<  6* 12*4  ) *CTRNPM<6* 12 >2) »EXTPT <  A*  2*80) *HRS ( 1 4  »  4 .6 ) t 
4  TML0CK<12*2*4),VSA<14*12*4> 

c: 

DIMENSION  CDBCC6. 12) *ENDFAC<6* 12) * TDFT<6*12>tTDFC< 12*14) t 
4  CARGT (12*2) 

C 

LOGICAL  YESTRN 
DIMENSION  TDFCX<5'4> 

C 

ABTEST*. 001 
DO  1  LC-4#LU 
DO  IS  ND-1,2 

CARGT <LC»ND)«0 
13  CONTINUE 

00  3  MC-1»6 
00  9  NO* 1  *  2 

ADDTRN<MC*LC*ND)*0 
CTRNPh  4  MC  *LC • ND >*0 
9  CONTINUE 

IF <  MN.Efl.4  )  TDFT(MC»LC)-0 
3  CONTINUE 

1  CONTINUE 

DO  648  ND-t.2 
DO  647  MC*1 1 6 

EXTPT (MCvND* IR)»0 

647  CONTINUE 

648  CONTINUE 
C 

C  PROHIBIT  CERTAIN  VESSELS  FROM  WINTER  OPERATION 
1F<MN.L£.  3* AND* ISN. GE. 2)  VSA< MN« 4* ISN) -O 
JFiMN.LE .3. AND. ISN.GE.2)  VKA<MN*5* ISN) -0 
1F(IS*NE*1 • AND«MN«LC • 4 • AND* ISN*OE* 2)  VSA(MN*4* ISN)*0* 

IMIS.NE.  1  *AND*MN«LE*4* AND*  ISN*GE«2)  VSA(MN*3» XSN> -0. 

IF i IS* ME • 1 « AND* MN*EO* 14 • AND* ISN* 0E*2)  VSA(MN*4* ZSN>*0. 

IF< IS. NE. 1. AND. MN.EO. 14. AND. ISN. GE. 2)  USA ( MN*3* ISN)-0. 

C 

C  BYPASS  DISTRIBUTION  IN  THE  NEW  FLEET  FOR 
C  EXTENDED  SEASON  GRAIN  AND  GENERAL  CARGO 
1)0  30  HC*1'6 

IF(MC.EQ.4,AND.ISM.GT.1.AND.MN.LE.3)G0  TO  70 
IF(MC*EQ*6*AND* ISN.GT • l * AND* MN.LE* 3 )G0  TO  70 
DO  20  LC-4*LU 

TCARG- <  CARGOP <MC» 1 » IR) 4CARG0P <  MC » 2 * IR ) ) 

C 

C  CALCULATE  THE  TRANSIT  DISTRIBUTION  FACTORS 
i:  ACCORDING  TO  FLEET  ABILITIES 

1 DFC<LC'MN)aHRS(MNf ISN*MC)tVSA(MN»LL* ISN)/(HRSYR(MC)B 

♦  VSM(LCfMC) ) 

IF  < ISN  «EQ«  1  .AND.  INDEXC  *EQ.  0) 

♦  TDFI-TDFC<LC>MN)*DFA<MN»ISN) 

IF< ISN.GT. 1. AND. INDEXC. EQ. 0 ) TDF I»TDFC (LC*MN> tDFACMN' ISN) 

C 

C  INCORPORATE  CARGO  SHIPPING  DEMAND 

IF  (ISN  *EQ.  1  .AND.  INDEXC  .GT.  0) 

♦  TDFC<LC'MN)«TDFC<LC'MN>*DFA(NN' ISN)* 

4  ENDFAC ( MC >LC ) 

IF< ISN. GT.l. AND. INDEXC. GT.O)TDFC(LCrMN)* 

4  TDFC  <  LC  *  MN ) *UFA  <  MN 1 1 SN ) 4ENDF  AC ( MC  *  LC  > 

IF( ABS(TCARG) «LE. ABTEST)  CDBC ( MC#LC ) -0.0 
IF  (ABS(TCARG) .LE. ABTEST)  GO  TO  7 
C  CALCULATE  THE  CARGO  DISTRIBUTION  BY  CLASS 

CD0C<HC»LC)-FLEETN<HC*LC)*FLOAD<HC)«CC<NC'LC)*TRIPYR< 

4  MC»LC) /TCARG 

/  CONTINUE 

DO  10  ND-1'2 

C  t 

C  CALCULATE  THE  ANNUAL  LOADED  TRANSITS 

CTRAN  <  MC  *  LC  * ND  > • <  CARGOP ( MC » ND » 1R) ) BCDBCCMCrLC)/ 

4  <  FLOAO  <  MC ) *CC <  MC » LC ) > 

<: 
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C  CALCULATE  THE  -MONTHLY-  LOADED  TRANSITS 

CTRNPN!NC.LC.ND)*CIRAN!NC.LC.ND>*TDFCILC.NN> 
CARGT!LC.ND)»CAR0T!LC.ND>4CTRaN!HC.LC.ND> 

10  COAT I RUE 

IF! INDEXC.EQ.O)  TDf  T  !  MC  >  LC )  ”1  DFT INC. LC  )  4TDF  X 
IF!HN.£0.3.AND.INO£XC.EO.O)ENOFAC!HC.LC>»1 .0/TDFT1MC.LC) 
14 

IF<  1MC.E0.4.0R.MC.EQ.A) . AND . MN.EQ .NM. AMO . INDEXC.EO. 

♦  0  >ENDFAC!HC.LC)"1.0/TDFT!NC.LC> 

20  CONTINUE 

70  CONTINUE 

YESTRN-. FALSE. 

CALCULATE  THE  TOTAL  TRANSITS  PER  OPERATING  PERIOD 
DO  S3  LC-4.LU 
DO  39  MD>1>3 

CTRNPM!HC»LC.ND>«CTRNPH!HC.LL»ND)4ADDTRN!NC»LC»ND> 

IF <  CTRNPMIMC.LC.ND) . GT.0.0  >  YESTRN-.TRUE. 

35  CONTINUE 

53  CONTINUE 

30  CONTINUE 

RETURN 
END 


SUBROUTINE  TFRCTiLU.MC.MN. ABTEBT * IR. ISN. BTF4. BTF5. 
+  DTF13.BTF14) 

IMPLICIT  INTEOER  (I) 


THE  TRANSIT  FORECAST  MODULE  DETERMINES  THE  NUMBER  OK  DAILY  LOADED 
AND  BALLASTED  TRANSITS*  AND  INCLUDES  PLEASURE  CRAFT  AND  ICE  LOCKAGES 

COMMON  /CALCOM/  ADDTRN! A. 12. 2) .CARGOP! A. 2.80) . 

♦  CTRAN! A.12.4 )  »CTRNPM( A. 12.2) .EXTPT! A. 2.80) . HR8( 14.4. A) . 

4  TMLOCK! 12.2.4) . USA! 14.12.4) 

COMMON  /MINARY/  BASEFT! A. 12 ) .CC< A. 12) .DFA< 14.4 > , DISTN! 2. A) . 

4  EMPTY < A. 121 .FILL (A. 12) . FLEETN! A. 12) .F LOAD (A > . WRSYR ( A ) . 

4  P0!a0.12>.R£DFT!12>.TDF!12.14>.TRIPYR!A.12>.VSMI12.A>. 

4  UDIST !A  )  * ZBHF <121 , ADDPCT < A. 12) .CAPIMC! 1 2 > 

COMMON  /PRELIM/  I IT< 3> . ISES( 4 ) . ILTM<3 ) 

COMMON  /DAT  1 /  BTF< 14.4 ) . CAREX1 1 A. 2.80) .CAREX21 A. 2.80 ) . 

4  DATN! 14) .  DIN ! 14.4  > .DIST (A) > 

4  EXTP1 <0.2.80 ) .EXTP2< A. 2.80) * 

4  IZBH( 12 > . LYEAR< 80 ) » ODAYS ( 12 > .PCRF < 14. 2) • SCOST < 12 > *  STDEV  < 12.2.4). 
4  TLTHL21 12.2.4 ).TLTML3< 12.2. 4 ).TURNBK< 4). UNLOAD! 12). XCAP1 12). 

4  XSHIP! 12) .ZB! 12) .ORAL! 12) .GLOAD! 12) 

COHMON/OUECOH/C AOOCL !A.12).DBTRN!12.3.I4).DLTRN!12.3.14>. 

4  DM! 14>.DT! 12.3. 14 >»1DBTRN! 12.3) .ICTRMP!A. 12.2). IDLTRN! 12.3). 

4  I HRS! 14 ) • ILTR13. 12) . IRHO! 4 . 14 ) • ISDEU 14.2.14) . ISYSTM! 14) > 

4  ITLTR13. 12) . ITMCST !13.12.4).ITMCYC!4r2.14).IT0T!3.3)v 
4  IT0TCI2. A) . ITTCST! 12.3) .QUE !4*2. 14)>T0TDB!3.14>*TQTDL!3.14>. 

4  TOTDT 13.14) . UTQH! 4 >2.14). XDDTRN! 12.2) . XDLTRH ! 12.2) 

COMMON/O/ ART AR 112.2) .ARTCL12) .ARTPOE < 2 ) > AOGOAR! 4 > 2 > » 

4  CAPCTY 14.2). CUTF 14.2) * UTLOCK! 4.2) .LRAX112 ) . LMIN ( 1 2 ) * 

4  MONRAY 114) .POEAR! 12.2) .POECL 12) .RAM DA  14.2) » RHO! 4*2) .RPMCL 12) . 

4  SABAR! 12.2) .SDEU14.2) .SHIP! 12. A) .S00AR14. 12.2) .TBAL! 14.12) . 

4  TBALT 112). TDCST 14.12). TDFCX! 5.4 ) .TIMES! 14). TLOAD! 14. 12) . 

4  TLOADT 112). TMCYCLI4.2) .TMEANI4.2) .TT1 114). 

4  UARTM14.2) .TLOCKMI 4.2). DAUAR! 12.2) 

TOTAL -O 
DO  59  LC-4.LU 

IF!  MN.EQ.4  >  TLOADT !LC>S!) 

IF!  MN.EQ.4  ) TBALT !LC)sO 
DO  47  ND-1.2 
TCTR-O. 

TLOAD !MN.LC>«0 
TBALIMM.LO-O 
DO  46  MC-l.A 

TCTR«TCTR4C T RNPM ! MC . LC . NO ) 

48  CONTINUE 

DLTRNILC.ND.MN>-TCTR/DMIMN) 

47  CONTINUE 

ZBHFILO-ZBILC) 

BALLAST  TRANSIT  CALCULATIONS 

EHPTY2»DLTRM!LC.1.HN>-ULVRM!LC.2.HN> 

IF!  ADS!DLTRN!LC.1.MN)>.LE.ABTEST  .OR.  ABS1DLTRNILC.2. 

4  MM)  )  .LE.ABTEST  >  ZBHFILO-O 
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IF!  EHPTY2.UE.0.0  'GOTO  731 

DDTRN(LC.1»HN>*-ENPTY24(0LTRN(LC.2.HN> 

♦  ♦enpty2>«(1.o-zbhfilC)) 

DBTRNILC. 2. NN>-(  DLTRN(LC.2.HH>4EHPTY2> 

4  BI1.0-ZBHFILC) > 

GOTO  732 

731  CONTINUE 

USTRN<LC.2.HN>»£NPTY24(DLTRN(LC.1.HN>- 

♦  ENPTY2) SI 1 . O-ZBHFILC) ) 

DBTRNILC. l.HN)‘IDLTRN(LC. 1 |NN)-EHPTY2) 

4  til.  O-ZBHF ( LC  > ' 

732  CONTINUE 

IF!  IR.ME.1.0R.ISN.NE.1  >  GOTO  733 
INCORPORATE  TRAFFIC  BIAS 

IF  I  HN.E0.4  )DBTRN(LC»2.HN)‘UBTRN(LC.2.NN)*(1.04BTF4) 

IF  <  NN.EQ.S  ) DBTRNILC. 2 » NN ) ‘OBT RNI LC  .  2 » NN ) *  < 1 • 04BTF5 ' 

IF (  NN.E0.13  >DBTRN(LC>2.HN>‘DBTRN(LC.2.HN>*(1 .0-BTF13) 
IF <  NN.E0.14  ) DBTRNILC t 2. NN)«DBTRN(LC. 2. NN>*( 1 . 0-BTF14  > 
GOTO  734 

733  CONTINUE 

ifinn.ge. 4. and.nn.lt. 13 )Dbtrnilc.2.nn>> 

4  DBTRNILC. 2. NN>*(1 .04BTFINN. ISN) > 

IF! (NN.LT.4.0R.NN.GT.12) )DBTRN(LC.2.HN>‘ 

4  DBTRNILC  r  2.  NN ) *( 1 . O-BTF ( NN » I SN> ) 

734  CONTINUE 
39  CONTINUE 

INCLUDE  PLEASURE  CRAFT  AND  ICE  LOCKAGES 
DO  30  ND-1.2 

PB1RN(3.ND.NN>‘PCRF(HN.N1<> 

DLTRN  <  3  *  ND • NN ) *0 
PO  49  LC‘3.LU 

TOTAL-TOT AL4DLTRN(LC.NU»HN>4DBTRN(LC>ND.NN> 

49  CONTINUE 

50  CONTINUE 

DO  S3  LC-4.LU 

TLOAD(HN.LC>‘TLOAD(NN>LC>4DLTRN(LC>1 .NN)4DLTRN(LC.2.HN> 
f  BAL  I  NN*  LO-TBAL I NNiLC ) 4 DBTRNILC  *  1 »NN) 4 DBTRNILC  *  2.NN) 
TLOADT I LC ) - TLOADT I LC  >  4  TLOAD I NN . LC  >  »DN I NN  > 

TBALT (LO-TBAL  T I LC ) 4VBAL I HN.LC ) SDNINN ) 

IFIHN.NE.3>G0  TO  737 
GLOADILC) ‘TLOADT ILC> 

GBALILC'-TBALTILC) 

IF l ABS I GLOADI LC >  >  . Lt . ABTEST ) REDFT 1 LC ) « 1 . 0 
IF  I ABS I GLOADI LC ' > .LE.ABTEST1G0  TO  92 

CALCULATE  THE  FLEET  REDUCTION  FACTOR  AND  THE  ACTUAL  FLEET 
REDFTILO-GBALILC'/tGBAL ILL '4UL0ADILC)  >40.3 
92  CONTINUE 

DO  SB  HC-1.6 

SHIP  I LC  .NC ) ‘FLEETNI NC  f LC 'SREDFT ILC ) 

38  CONTINUE 

737  CONTINUE 
33  CONTINUE 

RETURN 

END 


SUBROUTINE  D I SPCH I NN . LU . I S . I SW . JC  T . RHOPOE . D A  TN  > 
IHPLICIT  INTEGER  II) 


THE  SHIP  DISPATCH  NODULE  DISPATCHES  SHIPS  TO  THE  4  SOO  LOCKS 

COHNON/GUECON/CAGOCL 1 4 . 1 2  > • DBTRNI 1 2  >  3  r 1 4  > . DLTRNI 1 2 . 3  > 1 4  > . 

4  DN(14).DT(12.3.14). 10BTRNI 12*3' .ICTRNPI6. 12»2).IDLTRN(12.3). 

4  IHRSI 14  )  . ILTRI 3» 12>  *  JRHO (4*14>.ISDEV(4*2.14). ISTSTNI 14). 

4  ITLTRI3.12). ITMCST (13.12.4).ITNCYC(4.2. 14) . IT0TI3.3) » 

4  IT0TC(2.4>.ITTCBT(12>3>.GUE(4.2.14>,T0TDB<3.14>.T0TDL<3.14>. 

4  T0TDT(3.14).WT0N<4.2rl4> .XUBTRNI 1 2 »  2) . XDL TRNI 12*2) 
CONNON/Q/ARTAR 1 12>  2 ) » ARTCL 1 7 ' * ARTPOE ( 2 ) *  AUGUAR (4*2)* 

4  CAPCTY (4.2) *CUTF( 4* 2) »  DTLOCK (4.2)«LNAX(12) .LAIN! 12)* 

4  NONRAY  1 14  >  vPOEARI  12. 2) . POECL 1 2)  .RANDAI4 .2)  .RH0I4.2)  .RPNCL (2)  * 
4  SABARI 12*2) .SDEVI 4.2) .SHIP! 12.4> » SOOARI 4*12*2)* TBAL (14.12). 

4  TBALT 1 12) . TDCST (4* 12) * TDFCX 1 3 .4  > . TINES! 14 ) i TLOAD 1 14.12). 

4  TLOADT 1 12) .TNCYCLI4.2) . TNf ANI4* 2) .TTI 1 14) * 

4  UARTNI 4.2).  TLOCKNI 4.2)*  0 AVAR 1 12*2) 

DINENSION  CL (4. 2) .ROE (4. 2) .ARDIFI3.2) . RPLCL I  3 > 2) > DATA! 14) , 

4  TRNBLI4* 12*2) *  TRNLDI4. 12.2). TRANSBI4. 12.2) . TRANSL (4. 12.2) 

IF  (LU  .GE.  11)  GO  TO  8201 

DISTRIBUTE  8H1P8  BETWEEN  THE  POE  AND  NACARTHUR  LUCKS 


nnnnr. 


DO  120  ND-1.2 

ARTCL<ND)-DLTRN(7,ND.HN>+DLTRN(4,ND.KN>+DLTRN<3.ND.HN) 

K0€a.(MD)-DLTRN<8.ND.MN>'tDLTRN<9>ND'MN>'fW.TRN<10»ND.HN) 

♦  +DLTRN( ll,ND.HN)4DBTRN(9,ND.MN>iDBTRN< 10.ND.HN>* 

♦  DBTRNdl  .ND.NN) 

IF<  TL0CKN<2»ND> .EO.O  >  1LOCKH(2,ND)>0. 0000001 
I ft  TL0CKH(3.ND) .EO.O  )  1 LOCKNt 3, ND) -0.0000001 
ARTPOE(ND>-< ARTCL (ND>47L0CKrt(2,ND> -POECL (ND ) *TLOCKH( 3 ,ND) )/ 

♦  (TL0CKH(3,ND>4TL0CKH(2.ND>  > 

IF  (  ARTPOE <  MD ) . LE.O. > ARTPOE (ND)-O. 

RPHCLCNDI-O. 

1F(ARTCL(ND> .OT .0. )RPHCL<HD)-ARTPOE<ND>/ARTCL(ND> 
ifusw.co.i.'and. JCT.NE.O)  RPNCL < 1 ) -RPMCL ( 1  > -0 . 1 
IF( IS.CQ. 1 .  AND . RHO( 2, 1 ) . OC . RHOPQE )  RPNCL <ND)-0. 

IF(RPHCL(ND> .LE.O. >  RPNCL (ND)-O. 

CONFUTE  THE  SABIN  AND  DAO IS  COCK  ARRIVALS 
CONFUTE  NACARTHUR  LOCK  ARRIVALS 
CONFUTE  ROE  LOCK  ARRIVALS 


DO  140  LC-3.LU 

SABAR ( LC . NO >-UBTRN(LC,  ND.NN) 

lF(LC.Ea.4>SABAR<4,ND>-DBrRN(4,MD,MN>4bLTKN(4.NU,NM> 
IFiLC.OT  .B)SABAR(LCvND>-0 

ARTAR(LC»ND)-DLTRN(LC,ND.MN>4(  1  .-RPNCL(ND)  > 
IF(LC.EQ.3>ARTAR(LC.ND)-DBTRN<3,ND,HN) 

IF (LC.EQ.4  > ART AR( LC.ND )«0, 

IF(LC.GT.7>  ARTAR ( LC » ND ) >0 . 

PO£AR(LC.ND>»DLTRN<LC,ND.HN>+DBTRN<LC» ND.NN) 

IF <  LC.EQ.8  >  ROEAR(LL.ND)  •  DLTRNCLC > ND.NN > 

IF (  LC.E0.4  > POEAR < LC. NO >>0. 

IF(RPMCL(ND> .LE.O. >RPNCL ( ND )>0 . 

IF ( LC . LT •  8 . AND .LC .GT .4>P0EAR(LC, NO )>DLTRN<LC . ND.NN) 4 
♦  RPNCL  (ND) 

140  CONTINUE 
120  CONTINUE 

IF (LU.LE .10)  GO  TO  8224 
V 

C  ALLOCATE  SHIPS  THROUGH  THE  EXPANDED  SOO  LOCKS 
C 


8201  CONTINUE 
ILOCK.  1 

IF  <LU  .GE.  12)  ILOCK-  2 
00  8202  ND-  1.2 
DO  8204  I-  1.4 

DO  8214  LC-  4.LU 

TRNLD ( I .LC.ND) ■  0.0 
1 RNBL< I . LC. ND >-  0.0 
8214  CONTINUE 

8204  CONTINUE 

DO  8214  LC-  4 . LU 

4)  TRNLOa.LC.ND) 


8214 

8219 


IF 

<LC 

.EQ 

IF 

(LC 

.LE 

IF 

(LC 

.GE 

IF 

(LU 

.GE 

IF 

(LU 

.GE 

IF 

(LU 

.GE 

IF 

(LU 

.GE 

IF 

( LU 

.GE 

IF 

(LC 

.GE 

IF 

(LC 

.GE 

IF 

(LC 

.GT 

IF 

(LC 

.GT 

CONTINUE 

12 

•  AND* 

LC 

.EG 

12 

•  AND* 

LC 

.EQ 

12 

•  AND. 

LC 

.LE 

DLTRHILC. ND.NN) 

8)  TRNBLd  .LC.ND)-  DBTRNCLC »  NO.NN  ) 

9  .AND.  LC.LE . 7) TRNLD< 2.LC .ND ) -DLTRNILC. ND.NN) 

8 ) TRNBLd  »LC  »ND  > -TRNBLd  .LC.ND) 
4  )  TRNLD  <2 .LC.ND) -TRNLDd  .LC.ND) 
7 ) TRNBL < 2 . LC . ND ) -TRNBL d . LC . ND ) 
12)  TRNBLd. LC.ND)-  0.0 
12)  TRNLDd. LC.ND)-  0.0 

8. AND.  LC  .LE. 10)TRNLD<3. LC.ND)-  DLTRNCLC. ND.NN) 
9  .AND.  LC  .LE.10)TRNBL(3.LC.ND)-DBTRN(LC>ND.HN) 
10)  TRNBL(4. LC.ND)-  DBTRNCLC. ND.NN) 

10)  TRNLDd, LC.ND)-  OLTRNILC. ND.NN) 


8217 


8221 

8218 


8203 


DO  8217  LKS-  ILOCK. 4 
CL<LKS,ND>-  0.0 
CONTINUE 

DO  8218  LKS-  ILOCK, 4 
DO  8221  LC-  4.LU 

CL<LKS.ND»  CL  (LKS, ND) +  TRNLD(  LKS. LC.ND)  +  TRNBL  (LKS. LC.ND) 
CONTINUE 
CONTINUE 
CALCULATE  LOCK  UTILIZATIONS 

DO  8205  IND0LK-  ILOCK, 4 

ROE ( INDVLK . NO ) »  CL < INDVLK , ND ) 4TL0CKH  < I NDVLK.ND > / ( OATH ( NN ) 

4  440.0) 

CONTINUE 
NROE-  0 

DO  8204  INDVLK-  ILOCK, 3 
IND-  INDULKd 

DIFROE-  AB$(ROE( I NDVLK.ND) -ROC ( IND.ND) ) 

IF  (DIFROE  .OT.  0.003)  NROE-  I 
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CONTINUE 

IF  (NROE  .EU.  0)  00  TO  8207 
C  IF  THE  LOCK  UTILIZATIONS  ARE  NOT  EQUAL  CALCULATE  THE  WEIGHTED 
i:  ARRIVAL  DIFFERENCES 

DO  8208  LKDIF*  IL0CK.3 
IND*  LKDIF41 

ARD IF (LKDIF > ND>»  '(CL(LKDIF.ND)*TLOCKN(LKDIF.ND)-CL < INO.ND) 
4  *TLOCKM(IND.ND)>/(TLOCKH(LKDIF.ND>4TLOCKN(IND.ND> > 

IF  (ARDIF(LKDIF.NU)  .LE.  0.0>  ARDIF (LKDIF .ND>*  0.0 
C  CALCULATE  the  replacement  traction 

RPLCL (LKDIF. ND>*  ARDIF (LKDIF .ND >/CL (LKDIF .ND) 

8208  CONTINUE 

C  CHECK  TO  SEE  IF  MAXIMUM  REPLACEMENT  HAS  OCCURED 
HAXRP-  0 

DO  8200  LKDIF ■  IL0CK.3 

1  IF  < RPLCL ( LKD1 F . ND )  .OE.  0.003)  HAXRP-  1 
8200  CONTINUE 

IF  (HAXRP  .EO.  0)  00  TO  8207 
C  RE-ALLOCATE  SHIPS  TO  EQUALIZE  LUCK  UTILIZATION 
DO  8222  LC-  4.LU 

DO  8223  LKS*  IL0CK.3 

TRANSL  <  LKS . LC  .ND  > ■  TRNLD  <LKS .LC.ND) tRPLCL ( LKS . ND ) 
TRANSB( LKS .LC.ND)*  TRN»L( LKS.LC .HD ) tRPLCL (LKS >ND) 

TRNLD ( LKS . LC . ND ) •  TRNLD ( LKS .LC.ND) - TRANSL ( LKS .LC.ND) 
TRNBL (LKS.LC. ND)*  TRNBL (LKS. LC.ND) - TRANSB(LKS .LC . ND ) 

8223  CONTINUE 

DO  8224  LKS*  I LOCK >3 
LKS1-  LKS41 

TRHLD(LKS1 ,LC.ND>*TRNLD(LKS1 .LC .ND > 4TRANSL (LKS >LC • ND> 
TRNBL (LKS 1 .LC.ND )» TRNBL (LKS 1 .LC .ND )4TRANSD( LKS.LC  *ND ) 

8224  CONTINUE 
8222  CONTINUE 

GO  TO  8210 
C 

C  COMPUTE  THE  LOCK  ARRIVALS 

C 

C 

C  SABIN  LOCK  (IF  MAXIMUM  SHIP  CLASS  EQUALS  11 > 

L  MACARTHUR  LOCK 
C  POE  LOCK 
C  NEW  DAVIS  LOCK 
C 

0207  CONTINUE 

TRNBL ( 1 . 0.ND ) *  TRNBL ( 1 . 8 .ND ) 4TRNBL ( 2. 8. ND ) 

TRNBL (2.8. ND ) *  0.0 
DO  8229  LC*  4.LU 

SABAR(LC.ND)*  TRNBL( 1 . LC . ND ) +TRNLD ( 1 .LC.ND) 

ARTAR (LC.ND)-  TRNBL(2.LL»ND>+ TRNLD(2.LC.ND> 

PUEAR(LC.ND)-  TRNBL(3.LC.ND)4TRNLD(3.LC.ND> 

UAVAR (LC.ND)*  TRNBL(4.LC>ND)4TRNLD(4>LC>ND) 

8225  CONTINUE 

AR1AR(3.ND>«  DBTRN( 3 • ND.MN ) 

8202  CONTINUE 

8226  CONTINUE 
C 

RETURN 

END 

C 

C  *****<*«*****tt***t*f**(t*««t**t*ttt<tt**t***(**t**«**tt*«* 


SUBROUT  I NE  CTCL  TM ( LK . LU. I S • MN . RHOCAP  >  RHOMAX  > RHOPOE  >  TMCT . VARTNB > 


IMPLICIT  INTEGER  <I> 


C 

C  THE  LOCK  L'TCLE  TIME  MODULE  CALCULATES  THE  MEAN  LUCK  CYCLE  TIME 
C  AND  ITS  VARIANCE 
C 

COMMON  /CALCOM/  ADDTRN<6. 12.2) *CARG0P<6*  2*80  > . 

4  C TRAN (6.12. 4>.C TRNPM < 6 > 12 . 2 ) .EXTPT ( 6. 2 . 80) >HRS( 14.4.6) . 

4  THLOCK (12.2.4). VSA (14.12.4) 

COMMON  /DAT  1 /  BTF< 14.4) .CAREX1 (6.2.80) >CAREX2(6. 2.80) . 

4  DATM( 14) .DIN( 14.4) .VIST (6) t 
4  EXTP1 (6.2.80) .EXTP2(6.2.80) » 

4  I ZBH ( 1 2) • L TEAR ( 80 ) . ODAVS ( 1 2) .PCRF ( 1 4. 2) .SCOST ( 12) .STDEV( 12.2. 4 ) . 
4  TLTML 2(12.2. 4) .TLTML3( 12.2.4). TURNBK( 4 ) > UNLOAD ( 12) . XCAP( 12) . 

4  XSH1P( 12). ZB (12) >GBAL (12) . GLOAD( 12) 

COMMON/QUECOH/CAOOCL (6.12). DBTRN ( 12.3.14). DL  TRN ( 12.3.14).  - 
4  DM( 14 ).DT( 12.3.14). IDBTRN( 12.3) . IC1NNP(6. 12.2) . IDLTRN( 12.3). 

4  2HRS( 14)»ILTR(3.12)» IRHO( 4.14). ISDEV( 4.2*14). 1STSTM(14>» 

4  I1LTR(3.12).ITMCST(15.12.4).ITMCTC(4.2*14> . ITOT (3.3) . 

4  IT0TC(2.6).ITTCST(12.3) tOUE (4.2.14). TOT DB (3. 14). 10TDL (3. 14) . 

4  TOTDT( 3. 14 >  * WTQH ( 4*2.14). XDBTRN( 12.2). XDLTRN( 12.2) 
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nr.  nr  or. 


CUNNON/ 0/ AR  T AR  (  1 2 .  2  > .  AR T CL  <  2  > .  Aft TPOC  (  2  )  .  AVOVAft  (  4 . 2 ) . 

♦  CAPCTY14.2)  .CUTF14.2) .DTLOCM  4. 2) .LNAX ( 12 >  >LHIN( I2> > 

4  .P0EAR<12,2>  .P0ECL12)  .RANDA! 4, 2)  .RH014.2)  »RPHCL(2>» 

4  SABAR(12.2>)SDEV(4.2>.SHIP(12.6>.SOOAft(4.12.2>>lBAL(14.12> • 

4  TBALT(12>»TDCST(4.il.),rDr£X(S.4>.TINES(14>>TL0AD(14>12>. 

4  TL0A0T(12) .TNCYCL! 4. 2) . TNEAN14.2) » TTI ( 14). 

4  VAftTN(4.2).TL0CKN(4.2)rDAVAftXJ2x21 

DO  210  ND“t>2 

DTLOCK' LK.ND )-0 


DO 

1  >0 

LC«3»LU 

IF  < 

IS. 

NE. 1 >60  TO 

174 

IF 

(LU 

.LE 

.  11 

.AND. 

LK  ■ 

.  NE .  1) 

00 

TO 

174 

IF 

(LU 

.at 

.  12 

.AND. 

LK 

.NE.  2) 

GO 

TO 

174 

IF 

(LU 

.GE. 

11)  GO  TO 

1174 

SOOAR  <  1 .  LC .  ND  )  ■  ART  Aft  <  LC  .  ND ) 

SOOAR  ( 2 . LC . ND  > -POEAft  (LC.ND) 

S00AR(3. LC.ND)-  SABAR(LC.ND) 

GO  TO  174 

1174  If  (LU  .Ed.  Ill  SOOARl 1. LC.ND)-  SABARILC.NDl 

If  (LU  .GE.  12)  SOOAR! 1. LC.ND)-  0.0 
SOOAR (2.LL.ND)-  ARTAMLC.ND) 

SOOAR  ( 3  *  L C  » ND ) -  POEAR(LC.ND) 

SOOAR ( 4 , LC , Nb 1 ■  DAVAR(LC.ND) 

1 74  CONTINUE 

If l  IS.EQ.l  .OR.  LK.EU.2  1G0  TO  175 

SOOAR! I. LC.ND )-ULTRN( LC.ND. HN>+DbTRN( LC.ND.  NN) 
SOOAR  <  2 . LC . ND 1 - SOOAR ( 1 • LC i ND 1 
173  CONTINUE 

DTLOCM LK.ND) *UTLOCK  ( LK  > ND  1  4S0QAK  ( LK  •  LC •  ND  1 
1V0  CONTINUE 

CALCULATE  THE  VESSEL  ARRIVAL  RATE 

RANDA ( LK » ND ) -DTLOCK (LK » ND >/< DATH( NN > *60 . 1 

TNEAN(LK.ND)-0 

TVAR-O. 

IF(DTLUCK(LK,ND) .LE.O. 1G0  TO  733 
J-l 

1 F 1 1 S  *  NE . 1 1 J-LK 

IF ( IS. EG. 1 .AND.LK.LE.21J-2 

IF  (IS  .LQ.  1  .AND.  LU  .GE.  Ill  J*  LK 

CALCULATE  THE  UNE  WAY  MEAN  LOCKING  TINE  AND  ITS  VARIANCE 
DO  220  LC-3.LU 

TNLOCK ( 3 , NO, J ) -TNLOCK ( 4 1  ND . J 1 
STDEV1 i.ND.Jl-STDEV ( 4 , NO  *  J 1 

THLK-SOOAR ( LK  >  LC ■ ND  >  *T INES( NN 1  * TNLOCK (LC.ND.J1/ 
4  DTLOCKl LK.ND) 

THE AN (LK.ND > -TNEAN1LK  »ND 14TNLK 
VAR-SOOAR(LK.LC.NO)»STDEV(LC,ND. J)**2/DTL0CK( 

4  LK.ND) 

TVAR-TVAR4UAR 
220  CONTINUE 

TURN-0. 

DO  212  LC-3.LU 

VRN-( TNLOCK! LC.ND. J 1 -1 nEANILK . ND ) ) ** 2 »SOOAR ( LK , 
4  LC.ND)  /DTLOCK  (LK  •Nil) 

TURN- TURN4VRN 
212  CONTINUE 

AVGV AR ( LK • ND 1 • TURN4 T VAR 
733  CONTINUE 

210  CONTINUE 

CALCULATE  THE  HEAVY  BALANCED  LOCK  CYCLE  TINE 
HM-CT-THEAN ( LK .  I  1 4  (NEANILK .  2 1 
BO  240  ND- 1.2 
RHGCAP-RMONAX 

IF( IS.EO. 1 . AND.LK.EQ.2)  RHOCAP-RHOPOE 
IF (ND. EG. 1  INI-2 
IF (ND.E0.21N1-1 

IF  (DTLOCM  LK.ND)  .LE.O.  1G0  TO  230 

THCY-TNEAN  (LK.ND) 4 TURN BK (LK ) - ( THEAN ( LK >NI > 

4  4TURNBK  ( LK  >  ) * (  RANDA ( LK . NS  XTUftNBK  ( LK  )  -RANDA ( LK  . 

4  NI)*TNEAN(LK.NI)> 

TNCYCL (LK.ND ) - I NCY/l 1 .-(  RANDA  (l_K.NI *  *TURNBK (LK ) - 
4  RANDA  (LK.ND  *Y  MEAN  ( LX  .  ND  )  )  *  (  RANDA  (LK.ND)  *  T  URNBK  ( 

4  LK ) -RANDA (LK.ND)*) NEAN1 LK.ND) ) ) 

IF(TMCTCL( LK.ND) .UT.HBLCT)  TNCYCL ( LK.ND l-HBLCT 
CAPCTY (LK.ND) -60. *RHOLAP*DA TH (NN ) /MBLCT 
C 

C  CALCULATE  LOCK  UTILIZATION 

RHO ( LK • ND > -RANDA ( LK v NO >«TNCYCL( LK.ND) 
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C  IF  NECESSARY.  BRING  DAVIS  LUCK  INTO  OPERATION 

IF  US  .EQ.  1  .AND.  LU  .Ut.  ID  GO  TO  231 
IF<LK.EQ.3.AND.RHO<LK»ND>.GT.0.7>RAHDA<LK»ND>- 
♦  RAMDA<LK.ND>/2. 

IF (LK  *EQ. 3. AND. RHO(LK  » ND) .GT . 0 . 7 )RHQ  <LK »ND )  ■ 

4  RHO ( LK . ND ) /2 . 

231  CONTINUE 

CUTF  ( LK«ND)S1 .0 
C 

C  IF  CAP AC ITT  IS  REACHED.  CUT  UFF  TRANSITS 

IF  <  RHO <  LK » ND  > . L  f « RHOCAP  > GO  TO  230 
CUTF ( L K . ND ) -RHOC AP/RHO ( L K  »  ND > 

RAMDA  <  LK » ND ) -RHOCAP/TNC  TCL (LK » ND  > 

RHO  <  LK » ND ) -RAMDA  <  LK . ND ) * THC TCL  <  LK . ND ) 

230  CONTINUE 

240  CONTINUE 

IF  <  DTLOCMLK .  1 ) .L£ • 0. OR «  DTLOLK<LK  .2) . LE . 0>GO  TO  234 
C 

C  CALCULATE  THE  VARIANCE  IN  THE  LOCK  CYCLE  1 1HE 

VARTM  LK. 1 ) -AVGVAR (LK. 1  )4< 1-RH0(LK*2> >**2.0 
4  «  VAR TNB4RM0 (LK .2 >  **2* AVGVAR ( LK • 2  > 

SDEV  < LK • 1 >-VAkTM(LK» 1 >**0.5 

VARTM<LK»2>»AVGVAR(LK.2>4< 1-RH0<LK. I > >**2.0 
4  *VARTN*+RHO ( LK  » 1 > **2*AVGVAR <  LK  » 1 > 

SD£V(LK.2>-VARTM(LK»2)**0.5 

234  CONTINUE 
C 

RETURN 

END 

C 

c  ************************************************************ 

c 

SUBROUTINE  QUEMODt  LK  »MN* IS.CALFAC.LU) 

C 

IMPLICIT  INTEGER  <I> 

C 

c 

C  THE  QUEUEING  MODULE  CALCULATES  THC  QUEUE  LENGTH  AND  THE  WAITING  TIME 

C 

COMMON/QUECOM/CAGOCL (6.12). DBTRN < 1 2 . 3 . 14  > . DL TRN <12.3.14). 

4  DM< 14) ►  DT (12.3.14) . I DBTRN ( 12. 3  > » ICTRNP (6. 12. 2). I DLTRN< 12.3). 

4  I HRS (14). ILTR(3.12). 1RH0 (4.14).1SDEV<4»2.14)» ISYSTM< 14 ) » 

4  ITLTR<3»12).  ITMCST  <  15.12.4)  »nMCYC<4.2»  14)  .  I  TOT  (3. 3)  . 

4  ITOTC  (2t6)  1 171CST  ( I2t  3)  .DUE  (4. 2.14)  »T0TDB(3.14>.T0TDL<3»14). 

4  TOTDT ( 3. 1 4 ) .WTQM( 4. 2. 14) » XDBTRNC 12.2).XDLTRN( 12.2) 

COMMON /O/ ARTAR < 1 2 . 2 ) • ARTCL ( 2 ) . ARTPOE  <  2  > . AVGVAR  <  4 . 2  >  » 

4  CAPCT Y (4.2>.CUTF(4»2) • DTLUCK <4 » 2 ) . LMAX< 12>.LM1N(12). 

4  MONRAT ( 14 ) »POEAR< 12.2) >P0ECL(2) »RAMDA(4.2>  «RHO( 4 .2) . RPMCL (2) . 

4  SABAR(12.2).SDEV(4.2).SHIP<12.6) .S00AR(4. 12.2) »TBAL< 14.12) . 

4  I  BALT ( 12) *  TDCST (4.12). fDFCX<5»4) *  TIMES< 14 ) . TLOAD< 14.12). 

4  TLOADT < 12) . TNCYCL (4.2). TMEAN( 4. 2 ).TTI(14)» 

'  4  VARTM  <  4  »  2 ) . TLOCKM (4.2) . DAVAR ( 12.2 ) 

i: 

DO  242  ND* 1  *  2 

IF  ( DTLOCMLK » 1 ) . LE . 0.  OR  •  DTLOCM LK .2)  *LE  .0)00  TO  235 
WT  G- <  RAMDA  <  LK . ND  >  **2*VARTM<  LK » ND ) )4RMQ (LK »ND ) 9*2 
UTQM(LK.ND.MN)«WTU/(RAMDA(LK.ND)*2.*( 1 . O-RMO(LK.ND) ) ) 

OUE (LK.ND.MN) -WT UM  <  LK . ND  »  MN  >  *RAMDA ( LK . ND ) 

WTQM < LK » ND » MM )-WTQM< LK.ND.MN ) /6C . 

GOTO  942 

235  CONTINUE 

TMC YCL ( LK . ND ) >0 . 00000001 
WTQM( LK.ND.MN )*0. 

OUE ( LK  »  ND . MN ) -O • 

RHO ( LK . ND ) “0 • 

CUTF (LK. ND>-0. 

CAPCTY (LK.ND)-O* 

VARTM (LK.ND)-O. 

SDEV ( LK . ND  >  *0 . 

V42  CONTINUE 
C 

C  MULTIPLY  THE  WAITING  TIME  BY  THE  NUMBER  OF  NON-CONSTRAINING  LOCKS 
IF< IS. NE. 1 • AMD. LK. EO. 2 >W1QM< LK.ND.MN) -WTQM (LK.ND.MN) 

4  tCALFAC 

IF  < IS.NE, 1 .AND. LK.EQ. 2) QUE( LK.ND.MN >-GUE (LK.ND.MN)* 

4  CALFAC 

ITMCYC(LK.ND.MN)*TMCYCL(LK.ND)40.5 
JSDEV ( LK » ND. MN  >-SDEV(LK *  ND) 40. 5 
IF ( IS.NE. 1 .AND .LK.EQ. 2) GO  TO  243 
C 

C  IF  MAXIMUM  LOCK  UTILIZATION  IS  REACHED.  CUT  OFF  THE  TRANSITS 
DO  250  LC-3.LU 

SOOAR (LK . LC .MD)-SOOAR (LK .LC .ND )*CUTF (LK .ND ) 

250  CONTINUE 

243  CONTINUE 


B-l  7 


rrnnr  n  r.  n  n 


242  CONTINUE 


RETD.  N 
END 


SUBROUTINE  CARTGN(LU.LK.HH. lb  * SYSFAC . SYSADD. SY8TIH. IROSUM) 
INPLICIT  INTEGER  (1) 


THE  CARGO  rONNAGE  NODULE  CALCULATES  THE  PROJECTED 
AND  THE  ACTUAL  CARGO  TONNAGES  PROCESSED  BT  THE  LUCKS 

COHHON  /PRJCOM/  IPCARG(3.  IS*  15)  •  PC  ARGO*  IS*  A) 

COHNON  /CARGCH/  CAG0CH(6. 14 > . SON ( 12. 12. 14 ) 

COHHON  /CALCOH/  ADD) RN< 6. 12. 2) tCARGOP (6. 2i 80> . 

4  CTRAN(6. 12.4) »CTRNPH( 6. 12.2). EX TPT <6. 2. 80) »HRS( 14.4.6). 

4  THLOCK) 12.2.4) *USA( 14.12.4) 

CUHHON  /MINARY/  BAS£FT(6. 12) .CC<6. 12) .DFA( 14 .4 > • DIS1N( 2.6) • 

4  EnPTY(6.12).FILL(6»l2>.FLEETN(6.12).FL0AD(6>.HRSYM(6>. 

4  P0(80.12).REDFT(12)  .  ID)  <  12. 14)  .  TRIPYRC  6  .  12>  .  USH(  12.6)  . 

4  ODIST < 6 >  .ZBHF (12) . ADDPCT (6.12). CAP INC (12) 

COHHON  /OUECOH/  CAGOCL (6. 12) . DBTRNI 12. 3. 14 ) . DLTRNI 12. 3. 14 ) . 

4  DH<14).DT<12.3.14>. 1 DBTRNI 12.3) . ICTRNP <6.12.2). I DLTRNI 12.3) • 

4  1HRS(14).ILTR(3.12>.IRH0(4.14).ISDEU(4.2.14>.ISYSTH<14>. 

4  1TLTR(3.12).ITHCST(15.12.4>.IIHCYC(4.2»14>.IT0T(3>3). 

4  IT0TC<2.6). ITTCST (12.3) »OUE (4.2.14). TOT DD 13.14). TOTDL (3. 14). 

4  T0TDT<3.14). HTQHI4 .2.14). XDBTRNI 12.2) .XDL  TRN( 12.2) 
COHHON/O/ART AR (12.2). AR  T  CL  (  2  ) . ARTPOE  <  2 > . AVGVAR (4.2). 

4  CAPCTY (4.2) .CUTF (4.2). DTL0CK<4. 2 ) . LHAX ( 12) .LHIN( 12 ) » 

4  HONRAY ( 14 ) .POEAR( 12.2) .POE CL (2) • RAHDA (4.2>.RH0(4.2> >RPHCL(2). 
4  SADAR ( 12.2) • SDEV( 4 . 2) .SHIP(12>6). SOOAR ( 4. 12.2) • TBAL (14.12). 

4  TBALT <12).TDCST(4.12).TDFCX(5»4).TIHES( 14) .TLOAD( 14.12) > 

4  TLOADT  < 12  > • 1HCYCL<4. 2 ) • THE AN (4. 2) .T  I' 1(14) . 

4  OARTH( 4 • 2 ) . TLOCRH (4.2). UAOAR ( 12.2 ) 

DIMENSION  I ROSUH < 4 ) 

TCAGO-O. 

DO  4S0  HC-1.6 

CAGOCH(HC.HN>«0 
DO  2349  ND-1.2 

PCARGIND.HM.MO-O 
2349  CONTINUE 

DO  2312  LC-4.LU 
CAGOCL (HC.LC)-O 
DO  2313  ND-1.2 

LK-1 

IF (IS. NE. 1)  GO  TO  2964 
IF(LU.LE.IO.AND.LC.GE.S)  LK-2 
IMLU.UE.11.AND.LC.LE.?>  LK-2 
IF(LU.GE.ll.AND.LC.GE.O)  LK-3 
IF(LU. GE.ll.AND.LC.UE.il)  LK-4 
2964  AC ARGO-CTRNPM (HC.LC.ND)*CC(HC.LC)*CUTF(LK.ND) 

CAGOCL  <  HC • LC ) -CAGOCL  <  NC . LC ) 4ACARGU4FLQAD ( HC  > 

2313  CONTINUE 

CAGOCL  ( HC  .  LC  )  -CAGOCL  ( HC  .  LC  )  / 1 OOO . 

CAGOCH ( HC . HN  > -CAGOCH ( HC . HN ) f CAGOCL ( HC . LC ) 

PC ARC ( 1 . HN . HC ) -PC ARG ( 1 .HN.HC 14CTRNPH ( HC.LC . 2 ) 

4  <CC ( HC.LC ) *F LOAD ( HC )/1000 • 0 

PC ARG ( 2 .HN.HC ) -PC ARG <  2.HN  »MC )4CTRNPH( HC .LC . 1 ) 

4  *CC(HC.LC)*FLOAD(HC)/1000.0 

2312  CONTINUE 

PCARG(3.HN.HC)-PCARG<1 .HN.HC )4PCARG(2. HN.HC) 

4S0  CONTINUE 

DO  2314  LC-4.LU 

SOR ( 1 . L  C . HN ) -SOOAR (1.LC.2) 

BOR ( 2 . LC . HN ) -SOOAR ( 1 >  LC • 1 ) 

SOR ( 4 • LC . HN ) -SOOAR ( 2  >LC  >  2 ) 

BOR ( S.LC.HN ) -SOOAR! 2.LC. 1 ) 

SOR ( 7  >  LC • HN  > -SOOAR (3.LC.2) 

SOR ( 8 • LC i HN ) - SOOAR ( 3 • LC . 1 ) 

SORdO.LC. HN ) -  SOOAR (  4 .  LC .2) 

SOR (11 .LC.HN)-  SOOART4.LC. 1 ) 

DO  2237  HC-1.6 

ICTRNP (HC.LC. 1 > -ICTRNP (HC.LC. 1 >4 IF3X(CTRNPH( 

4  HC.LC. 2)40. 5) 

ICTRNP (HC.LC »  2 )-ICTRNP(HC.LC. 2 1 4 IF IX(CTRNPH< 

4  HC.LC. 1)40.3) 

2237  CONTINUE 

2314  CONTINUE 

IF  (IS  .EO.  1  .AND.  LU  .GE.  12)  GO  TO  2241 
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IkMOO.MN)  •  RHO <  1  *  1  )  S 1 00+0 •  5 

IF C  RHO (  1 . 2  >  <  GE  • RHO (1*1)  )  IRHQ< 1 iMN)-RH0( 1 »2>*10040.5 
2341  IRHO(  2»MN)*RH0<2» 1 >*100+0.5 

1F<  RHO  (2.2) . G£ . RHO (2.1)  )  IRHO<2»NN)«RMO<2. 2)910040.5 
1FUS.NC.1  >00  TO  964 

IRHO < 3* MN > »RHO( 3.1 >*100+0.5 

IF <  RHO  (  3 . 2  >  .  Gt .  WHO (3*1)  >  1RH0<  3.MN  > «RMO  <  3  »  2  >  6  100*0 . 3 
IF  (LU  .LE.  10)  00  TO  9VI 
I RHO ( 4  *  MN ) •  RH0(4.1 >*10040.5 

IF  < IRHO( 4. 2 )  .Of.  1RH0<  4.1)>  IRM0(4,MN)-  RHO< 4 .2 >610040 . 5 
GO  TO  991 
964  CONTINUE 

S  T STUP- TNCYCLC 1*21/120. 4B  Y SF  AC9 TNC  YCL  <  2  *  2  >  / 1 20 . +SYSADD 
+  4WTQM ( 1 »  2.MN ) 4WTUM( 2. 2 » MN ) 

SYSTDN-TMCYCLU  *  1 )/120. 4SYSFAC9TMCYCL  <2. 1 )/ 120. 4SYSADD 
+  4WT  OH  <1.1. MN  >  4W  f  ON (  2 » 1 » MN  > 

ISYSTN<HN>«(SYSlUP4srSTDN4SYSTlM9TTI<HN>  >40.3 
SYSQUE" (QUE (1.1 »MN)+UU£ ( 1 .2»MN)+GU£ (2. 1 »MN)4QU£ (2.2. 

4  MN) 1/2*0 

991  CONTINUE 

IF  (IS  .N£.  1)  GO  TO  2242 
1/0  2243  LK1-  1*4 


IF 

(LU  . 

,6E, 

12 

.AND. 

LK1 

.£0.  1>  GO  TO  2243 

IF 

(LU  . 

.LE. 

10 

.AND. 

LK1 

.EQ.  4)  GO  TO  2243 

IF  <HN 

.GE 

.  6 

.AND.  MN 

.LE. 

12)  IR06UM(LK1)>  IRQSUM ( LK 1)4 

4  IRHO(LNlfMN) 

2243  CONTINUE 
GO  TO  2244 

2242  IF  (MN  . GE .  6  . AND.  MN  .LE.  12)  IR06UM<1)-  IROSUH< 1 > 4IRH0< 1 »MN) 

2244  CONTINUE 

C 

RETURN 

END 


SUBROUTINE  QUEUE ( IKNT1 »LU> 
IMPLICIT  INTEGER  (I) 


SUBPROGRAM  QUEUE  PRINTS  THE  CORRECT  HEADINGS 
FOR  THE  QUEUEING  TABLES 

1  FORMAT  (/.43X.24H999*  MACARTHUR  LOCK  9*99) 

2  FORMAT  ( / .  46X. 18H**»*  PUL  LOCK  9**9 > 

3  FORMAT  < / .40X .  J 1H****  SABIN  AND  DAOIS  LUCKS  **** > 

IF  <LU  .GE.  11)  GO  TO  101 
IF <  IKNT1.NE.1  >  GOTO  100 
WRITE<8* 1 ) 

GO  10  300 
100  CONTINUE 

IF  (  IKNT1.NE.2  >  GO  TO  200 
WRI TE  <  8»  2) 

GO  TO  300 
200  CONTINUE 


UR I l E  <  8r 3) 
GO  TO  300 


101 

IF 

( IKNT1 

.NE. 

1) 

GO 

TO 

103 

WHITE 

(8.204) 

GO 

TO  300 

103 

IF 

(IKNT1 

.NE. 

2) 

GO 

TO 

104 

WKJlfc 

(8.1) 

GO 

TO  300 

104 

IF 

(IKNT1 

.NE. 

3) 

GO 

TO 

105 

WHITE 

(8.2) 

GO 

TO  300 

105 

IF 

(IKNT1 

.NE. 

4) 

GO 

TO 

300 

WHITE  (0.106) 

204  FORMAT  < /« 4SX »  20H****  SABIN  LOCK  9**9) 

106  FORMAT  ( / .43X.24H9999  NhW  DAUIS  LUCK  9999) 
300  CONTINUE 

return 

END 


C 

C 


SUBROUT I NE  SESONS ( ISN. FAC TOR . CAREX . EXTP  t  TD IN . 0 IN ) 
IMPLICIT  INTEGER  (I) 
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C  SUBPROGRAM  SC SONS  ASSIGNS  INC  CONNECT  CARGO  TONNAGE  PGICNTIAL 
C  TO  THE  CARGO  TONNAGE  HONKING  VARIABLE  DEPENDING  ON  THE  SEASON 
L  EXTENSION  v 

C 

COMMON  /CALCOM/  AUDI RNT 4, 12. 2) .CARGOP) 4 . 2, 80 > . 

4  CTftAN ! 6 , 12 , 4 )  , CTRNPM  <  6* 12, 2 ) .EXTPTT4. 2. 80 > ■ HRS! 14 , 4.4) , 

4  THLOCK ( 12*2*4) * VSA< 14.12*4) 

COMMON  /PRELIM/  IIT<3> • ISCS<4> t IL1M<3) 

C 

DIMENSION  CANCX ! 4, 2,80) , EXTPT4 , 2, 80) , D2NT14.4) 

C 

DO  1  IRINC-8.80.2 

IFUN1NC.E0.14>  1R-1S 
IFTIRINC.EQ.14>  00  TO  9820 
VH21  IR-IR1NC 

VU20  DO  2  ND-  1.2 

DO  3  MC-  1.4 

CARDOPTMC.ND.IN)>  CAREX (MC.ND. IN) 

C  INCREASE  INC  CARGO  TONNAGE  PROJECTIONS  BT  THE  CARGO  TONNAGE  MULTIPLIER 
CARGOPTMC.ND.IR>-  CARGOP TMC .NO. IR>*  FACTOR 
3  CONTINUE 

2  CONTINUE 

IFTIR.E0.1S>  GO  TO  9821 
1  CONTINUE 

GET  THE  DESIRED  CARGU  POTENTIAL  ASSIGNED  TO  THE  HONKING  VARIABLE 
FOR  THE  CARGO  POTENTIAL 

TDIN-0 

DO  997  HN-1.14 

TDIN-TDIN4DINTMN, 1SN) 

V97  CONTINUE 

RETURN 
END 


SUBROUTINE  ILOCNTTTLTNL.LU.IS) 
IMPLICIT  INTEGER  !1> 


SUBPROGRAM  TLOCMT  ASSIGNS  THE  CORRECT  LUCKING  TIME  RANGE  TO 
THE  LUCKING  TIME  UORKING  VARIABLE 

COMMON  /CALCOM/  ADD  I RNT  4. 12.2) , CARGOP  T  6 . 2 . 80  >  > 

4  CTftAN  T 4 ■ 1 2 • 4  > . CTRNPMT  4.12.21.EXTPT  T4»  2.80) .HRS! 14.4.4). 
4  TMLOCK  T12.2.4). VSAT 14,12.4) 

DIMENSION  TLTMLT 12,2.2) 

00  1  LC-4.LU 
DO  2  ND- 1.2 

IF  TIS  .EQ.  1)  > MLOCK TLL .ND, 3 )>  TLTML T LC . NO. 3 ) 

IF  TIS  .NE.  D  TNLOCKTLC.ND.D-  lLfMLTCC.ND.l) 

IF  T  IS.NE.3  ) fMLOCKTLC.NO. 2 ) -TLTML T LL , ND. 2) 

2  CONTINUE 
1  CONTINUE 

RETURN 

END 


SUBROUTINE  READIN  ! ISTST . IS .LU.KU. FACTOR .CAL) AC . SYSF AC . 
4  STSAD0,SYSTIM.BTF4,BTFS,BTF13,BTF14. TDFCX. 1 DEBUG, LARF ) 

IMPLICIT  INTEGER  1 1 > 


SUBPROGRAM  READIN  READS  THE  APPROPRIATE  DATA  FILE 

COMMON  /CALCOM/  ADD  I RNT4. 1 2. 2 ) , CARGOP! 6 , 2 , 80> . 

4  CTRANT 4,12,4)  .CTRNPMT 4 »  12.2)  .EXTPT T 4, 2 , 80  )  •  HRS T  14,4.4), 

4  THLOCK T 12,2.4  > .VSAT 14,12.4) 

COMMON  /MINARY/  BASEFT 14—12) ,CCT4. 12),DFAT14,4),D1STNT2,4>, 

4  EMPTY T 4. 12 > .FILL! 4. 12) .FLEETNT4, 12) .FLOADT 4) .HKSYKT4) , 

4  P0T8O. 12) .REDFT < 12) » TDF T 12. 14 ) . TRIP YRT 4 » 12 ) , VSM! 12, 4 ) . 

4  U0ISTT4), ZBHF  T 12 ) • ADDPCT T  4 , 12  > .CAP INC  T 12  > 

COMMON  /PRELIM/  I IT T 3) , ISES ! 4 ) , ILTMT 3) 

COMMON  /DAT  1 /  BTFT14.4) , CAREX 1 T4, 2,80) ,CAR£X2!4,2»60> , 

4  DATMT 14)»DINI14»4), D1ST T4 ) , 

4  EXTP1 T  4.2,80) , EXTP2T  4.2, HO) , 

4  IZBH!12>.LYEAR!80>,UDAYS!!2>,PCRF!14,2>,SCOSTT12>,STDEVt!2,2,4)» 
4  TLTML2T 12.2,4 >,TLTNL3< 12. 2. 4 ) , TURNBK T 4 ) .UNLUADT 1 2 ) , XCAPI 1 2 > , 

4  XSMIPT 12).ZBT12> .GBALT 12) .GLOADT 12) 
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COMHO N  /COMMOD/  WHEAT <  80>  3 ) » bOY< 80 » 3  )  .  St  YRYE  <  0Or  3  >  .CORN (80.  3)  * 

4  OILSD ( 00#  J ) . ALMSTN(0O. J) » AIRORE (00*3) t RAWMA1  ( 80 • J  ) . 

4  COAL  ( 00 »  3  >  » PETROL  (  80 .  J  ) .  Dk'YBLM  80.  3 )  .  GENCAR  (  00*  3 ) » 

♦  S7LPRD<  80. 3 ) • GRAI N( 80 » 3 >  * STONt (00.3) .ORE <00.3). BULK (80*  3  >  . 

4  GNCAR  (  60  >  3 )  •  CEMEN I  <80#  J)  »  AMIN<  80 » 3) 

C 

DIMENSION  TDFCX<5.4> 

DIMENSION  CARF (3.13.80) 

C 

LOGICAL  IDEBUG 
C 

9  FORMAT  (IX) 

403  FORMAT </) 

<191  MAXIMUM  VESSEL  CLASS  IN  **** 
kEAD< 1 6YST .906 )  LU 

906  FORMAT  (12) 

IF  (  IDEBUG  >  WRITE  (9.506)  LU 
C  1191  SEASON  EXTENSION  IN  •  *** 

READ< I SYST  »  50? )  ( 1 SES ( I ) » I* 1 # 4 ) 

IF  <  IDEBUG  ) WRI TE <  V#  507 )  < ISES< I ) *  1-1 » 4) 

907  FORMAT  <I1»3<  lXf  ID  > 

C  1999  LUCKING  TIMES  IN  **** 

READ< I SYST  »  996 )  < ILTM< I > #  I«1 ♦ 3) 

IM  IDEBUG  )WRITE<9# 996>  OLTHO  >  .  I"1 . 3 > 

996  FORMAT  Ol.2(lX.ll)> 

C  *****  ZBHF#  FACTORS  IN  ***** 

READ ( I SYST. 14)  <  ZBHF (LC ) . LC«4 »LU ) 

IF (  IDEBUG  )URIIE(V.14)  (ZBHF(LL) .LC-4.LU) 

READ (2 SYST. 1517)  FAC TOR. CALF AC. SYSFAC.SYSADD.SYSTIM 
lf(  IDEBUG  ) WRI T£<9»151/>  FACTOR » CALF AC » SYSFAC . SYSADD. SYST1M 
14  FORMAT  (8<F4.2#1X>) 

1517  FORMAT <2<F4»2. IX) .3<F3»2*1X) ) 

IF (  IDEBUG  )URI rE<9.603) 

C  *«**  READ  IN  THE  FLEET  MIX  FACTORS 
C  SHIP  BUILDING  FACTORS 
READ  (1  SYST .603) 

READ! ISYST. 7700)  ( ( ADDPCT (MC.LC) »MC*1 .6) »LC«4»LU> 

IF  <  IDEBUG  )WRITE<9.7700)<(ADDPCT(MC.LL).MC-1.6).LC-4»LU> 

7700  FORMAT  (6F6.2) 

C  ****  CC  IN 

READ  (ISYST.603) 

I»OS. ME.  l>READOSYST»602M(CC(MC.Lt>.Lf4.LU>. MC-1.3) 

IF ( IS. NE. 1 .AND. IDEBUG  )WRI TE< 9.602) <  <CC< MC.LC ) .LC-4.LU) . 

♦  MC-1.3) 

602  FORMAT <4(F6.0. 1X1 ) 

IF<  IS.  EO.  l)READ<ISYSf./M<CC(MC.LC).LC"4.LU).  MC-1.3) 

IFUS.EO.l  .AND.  IDEBUG  >WKITE(9.7) < (CC(MC.LC) .LC-4.LU) »MC-1 .3) 
7  FORMAT (7F7.0) 

C  *****  TDF  IN  ***** 

READ( ISYST.603) 

IF  <  IDEBUG  ) WR I TE  <  9. 603  > 

READ< ISYST.0X ( TDF (LC.MN) .HN-1 » 14) *LC*1 .3) 

IF  <  IDEBUG  )  WRI  TE  <9»0)<  (TDF  (LC.MN)  »MN*  1.14)»LC-1.3> 

W  FORMAT ( 14F5. 3) 

C  *****  READ  IN  THE  PROJECTED  COMMODITY  TONNAGES  ***** 

DO  8000  J-1.9 
Jl-J'l 

IF(Jl.EQ.O)  IR-8 
IF(Jl.EO.l)  IR-15 
IF ( Jl . GE . 2)  IR* Jl*10 
DO  8030  ND-  1.2 
READ  (ISYST.603) 

READ( ISYST .8040)  WHEA f (1R.ND) . SOY( IR.ND ) . 

♦  BLYRYE(IR.ND).CORN(IR,ND).UILSD(IR.ND). 

♦  ALMSTN( IR.ND) »AIRORE( IR.ND) » 

4  RAWMAT( IR.ND) .COAL (IR.ND) .PETROL (IR.ND) 

4  .CEMENT ( IR.ND). AMIN(IR.ND) . 

4  DRYBLK( IR.ND) .GENCAR( IR.ND) . 

4  STLPRD( IR.ND) 

8040  FORMAT  (10F8.0./.5F8.0) 

IF  (  IDEBUG  )  WRITE  (9.8040)  WHEAT (IR.ND). 

4  SOY  < IR.ND) »BLYRYE< IR.ND) . CORN( IR.ND) » 

4  OILSD< IR.ND) « ALHS1 N< IR.ND) .AIRORE ( IR.ND) . 

4  RAWMAT (IR.ND). COAL (IR.ND). PETROL (IR.ND). 

4  CEMENT ( IR. ND). AMIN< IR. ND ) »DRYBLK( IR.ND ) • 

4  GENCAR( IR.ND) .STLPRD< IR.ND) 

8030  CONTINUE 

C  CALCULATE  THE  TOTAL  DEMAND  FOR  EACH  COMMODITY 
WHEAT (IR.3 )-  WHEAT  (  IR.  1  >4  WHEATON. 2) 

SOY  (  JR »  3  ) *  SOY ( IR.  1  ) 4  60YOR.2) 

BLYRYE( IR.3)-  BLYRYE( ZR. 1 )4  BLYRYE< IR  *  2 ) 

CORN  ( IR . 3  > -  C0RN(IR.|>4  CONNOR.  2) 

OILSD ( IR.3)-  0ILS1XIR.1  >4  OILSDOR.2) 


ALMSTM (  IR  #  3 ) •  ALMSTNt  IRr 1 >+  ALMSTNW«r2) 

AlROREilRt  3)-  AIROREHR*  1  >+  AlRQREf IR,2> 

RAWMAT  <  IR  r  3 ) •  RAWMAT <  IRr  1  )♦  RAWMAT  (  Ik  *  2  ) 

PETROL ( IR*  3 )-  PETROL ( JR. 1 )♦  PETROL ( IR  »  2  > 

CEMENT < IR*  3 )  •  CEMENT < IR. 1 ) ♦  CEMENT<IR,2) 

AMIN  < I R  *  3  )  •  AMlN<Ik.l)4  AMINUR.2) 

DRYBLK < IR  *  3  )•  DRYBLM IRr 1 >4  DRYBLK ( IR  r  2 ) 

GENCAR  (  IR  r  3 ) «  liENCAR <  IR ,  1  ) 4  GCNCAR  <  IR  » 2  ) 

STLPRD< IR.3>-  STLPRD< IR* 1 >4  STLPRDt IR  r  2 ) 

C  CONVERT  TO  THE  SIX  MAJOR  COMMODITY  GROUPS 
DO  9031  ND-  1 >3 

GRAIN< IR  r  ND ) -  WHEAT  < IR  r  ND>4  S0Y<IWrND>4 
4  BLYRYE< IR#ND)4  C0RN<IRrHD)4  OlLSD(IRrND) 

STONE  < IR » ND ) ■  ALMSTN ( I R» NO > 

ORE ( I R »  ND ) ■  A1R0PE ( IkrND) 

BULK (IRr NU  > ■  KAWMATC IRrN0)4 
4  PETROL ( IR ■ ND)4  CEMENT ( I R r ND > 4 

4  AMIN(  IR*N£i)f  DRY  BLR  (IRr  ND  ) 

GNCAR <  IRrNDl- •  GENCARt IR*ND)4STLPRD<1R*ND) 

8031  CONTINUE 

C  ASSIGN  THE  CARGO  PROJECTIONS  TU  THE  CORRECT  WORKING  VARIABLE 
IF  <ISES<1)  .EQ.  1)  GO  10  8888 
DO  8050  NU-  1*2 
CAREX2  < 1 r  ND  r IR )-  URE(IR.ND) 

CAR£X2<2*N0* 1N>«  CUAL(IRtND) 

CAREX2<3»NDr IR)-  STONE < IR  *ND ) 

CAREX2<4*ND» IR>-  GRAIN<IR»ND> 

CAREX2(5»ND« 1RJ*  kULX(lR*MD ) 

CAREX2<6.NU. IR)-  GNCAR ( 1R*ND ) 

EXTP2<4  rND» IR)*  0.0 
EXTP2<6*ND» IR)-  0.0 
8030  CONTINUE 

GO  TO  8889 

8888  DO  8887  ND-  lr2 

CARE X 1 <1*ND*IR)*  ORE < IR*ND ) 

CAREX1 <  2  *  NL<  * IR ) ■  COAL ( IR  t  ND ) 

CAREX 1 ( 3  » ND » I R ) -  STONE(IR»ND> 

CAREXI (4*ND* IR)-  GRAlNt IR « NO) 

CAREX 1 ( 5 » ND  » I R )  -  BULK( IRrND) 

CAREX1<6.ND*IR>-  GNCAR(IR»ND> 

EXTPl<4.ND*lk>-  0.0 
EXTP1 <6»ND*IR>-  0.0 
8887  CONTINUE 

C  CALCULATE  FRACTIONS  Of  THE  MAJOR  COMMODITY  GROUPS  FOR  EACH 
C  INDIVIDUAL  COMMODITY 

8889  DO  8800  N-l*3 

IF  (N  .£0.  1>  ND1-  2 
IF  (N  •  EQ.  2)  NIU-  I 
IF  <N  .EG.  3)  ND1-  3 

IF  (URAlN(IRfNDI)  .LT.  0.5)  GO  TO  8801 
CARF  <  N» 1 » IR)-  WHEAT  < IRrNDl ) /GRAIN ( IR* 

4  ND1  ) 

CARF <N* 2* IK)-  SOY ( IRrNDl ) /GRAIN < IR* 

♦  ND1 ) 

CARF  <  N*  3 » IR) -  BLYRYE  < IRrNDl )7GRAIN< IR 
4  r  NDl ) 

CARF (Nr 4. IR)-  CORN< IRr ND1 )/G*AlN< IR* 

♦  ND1 ) 

CARF (Nr  5# IR)-  OILSD( IRrNDl > /GRAIN ( IR  * 

4  ND1 ) 

GO  TO  8802 

8801  DO  8803  K-  lrS 

CARF <N*K*IR>-  0.0 
H803  CONTINUE 

8802  CARF  <  N*  6* IR)-  1.0 
CARF<N*7* ZR>-  1.0 

CARF(N»8rIR) -  1.0 

IF  < BULK < IRr ND1 )  .LT.  0.3)  GO  TO  8804 
CARF <N*9* IR>-  RAWMAT< IRrNDl >/ BULK ( IRr 

♦  ND1  ) 

CARF (Nr  10. IR)-  PETROL ( IRrNDl )/BULK( IRr 

♦  NDl  > 

CARF ( N< 1 1 f IR )-  CEMENT < IR. NDl) /BULK ( IRr 

♦  NDl ) 

CARF (N, l2tlR)»  AMINUR'NO!  )/9ULK<IR» 

4  NDl ) 

CARF < N* 13* 1R>*  DRYBLM IRrNDl )/BULK  < IR r 
4  NDl ) 

GO  TO  8805 

8804  DO  8806  K-  9r 13 

CARF <M»K»IR>-  0*0 
8806  CONTINUE 

8803  IF  ( GNCAR ( IRrNDl >  .LT.  0.5>  GO  TO  8807 
CARF <N*14rIK>-  UENCAR( IRrNDl ) /GNCAR < IR  * 

4  NDl) 
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CARF(N* IS* IR)-  STLPRD<IR*NDl)/GNCAR(IRt 
4  NDl  > 

GO  TO  MOO 

«807  00  8808  K-  14 >15 

CARF(N*K* IR)-  0.0 
4*808  CONTINUE 

8800  CONTINUE 

8000  CONTINUE 
C  mil  HOURS  IN 

R£AD( ISYST  >403) 

IF  <  I DEBUG  ) WRITE (9*603 ) 

kEAD< ISYST >21 ) (DATM(HN)*MN-1»14> 

JM  IDEBUG  )WRITE(9*21  > (DATM(MN)  >NN-1  >14) 

21  FORMAT  <14(F4.1*1X> > 

C  *****  THLOCK  IN 

R£AD< ISYST  *403) 

IF <  IDEBUG  )WRITE(9> 603) 

1F< 1S.EQ. 1 )READ( ISYST  >22) ( < <TNLOCK<LC*ND* J) *LC-4*LU) *ND-1 * 

4  2) •  J-l *2) 

IFUS.CO.l  .AND.  IDEBUG  )WRITE(9*22)  <  <  < TMLOCK(LC  *ND>  J) *LC*4*LU)  > 

4  MD-l* 2) * J-l *2) 

.  IF  < IS . NE. 1  )READ<  ISYST >  753 )  (  <  (TMLOCK(LC>ND*  J)  *LC-4*LU)  *ND-1 » 

4  2>’J-1»2> 

IF  < 16. NE  *  1  .AND.  IDEBUG  )WRITE  <9*  753) <  <  <  THLOCK ( LC  >  NO*  J) *LC-4  >LU) * 
4  ND-1*2)>  J«l>2) 

753  FORMAT <4<F5.0> IX)  ) 

22  FORMAT ( 7F6  • 1 > 

R£AD< ISYST  >403 ) 

IF (  IDEBUG  )WRITE<  9 >603  > 

i F<  IS.EQ.l  >  READ<  ISYST >22)  (  <  TLTHL2(LC*ND*  1  )  *LC-4>LU)  >Nti*l  >2) 

IF  <  IS.EQ.l  .AND.  IDEBUG  ) WRITE <9. 22) ( <  TLTML2 (LC*ND » 1 ) *LC-4 *LU ) > 

4  ND-1*2> 

IF  <  IS.NE.l  >  READ(  ISYST  >753X<<  TLlML2(tC>ND>  J)»LC«4*LU)* 

4  ND-1 >2) > J-l >2) 

IF <  IS.NE.l  .AND.  IDEBUG  >WRITE<9> 753) < < ( TLTML2( LC# ND> J) >LC-4*LU) 
4  ND-1 >2) > J»l>2) 

READ( ISYST  >603  > 

IF (  IDEBUG  )WRI TE (9*603 ) 

IFdb'.EQ.  1 )  R£AD(  ISYST *22)  (  (TL1ML3(LC*NP>1)  >LC-4tLU)  >ND-1  >2) 

IF ( IS. EO. 1  .AND.  IDEBUG  )WRI TE ( V>22) <  ( TLTML3(LC  *ND* 1 ) vLC-4 >LU) • 

4  ND-1 t 2) 

IF< IS.NE. 1 )  R£AD< ISYST > 753) <  ( < TLTHL3(LC» NO* J>  *Ll>4#LU) > 

4  MD-l«2)«  J-l»2) 

IF < IS . NE . 1  .AND.  IDEBUG  )URI TE< 9> 753 ) < < < TL TML3 < LC >ND* J) >LC-4*LU) * 
4  ND-1 >2)>J*1>2) 

L  tttlt  ST.  DEO  IN 

READ( ISYST  >603) 

IF (  IDEBUG  ) WR I TE ( 9 > 603 ) 

IF (IS.EQ.l >READ( ISYST>22)(< (STDEO(LC*ND# J> *LC-4>LU) >N0-1 > 

4  2)#J-1»2> 

IF( IS.EO. 1  .AND.  IDEBUG  )WRI TE (9*22) < < < S> fDLV(LC > ND* J> *LC-4 >LU) > 

4  ND-1 *2)*J-1*2) 

IF<IS.N€.l  )READ<  ISYST  >  754  )  (  <  <  STDEU<  LC  >NP*  J)  >LC-4>LU)  *ND«1> 

4  2)*J*1»2> 

IFdS.NE.l  .AND.  IDEBUG  )WRITE(9*  754  )  <  (  <STDEM<LC*ND>  J)  >LC»4*LU)  > 

4  ND-1 *  2) > J-l »  2) 

754  FORMAT (4(F5.1>1X>) 

IFdS.NE.l)  GO  10  1001 
DO  1002  LC-4 >  LU 

DO  1003  ND-1 >2 

T  ML  OCK <  LC  >  ND  *  3  )  • lhLOCK ( LC  >  ND  >  2 ) 

TL  THL2<  LC  >  ND>  3)-TLTHL2(LC>  ND  >  2 ) 

TLTHL3(LC>ND*3>-TLTML3(LC*ND»2) 

$TDEV<LC  >ND>  3)*S1 DE0(LC>ND>2 ) 

1003  CONTINUE 
1002  CONTINUE 
1001  CONTINUE 

C  *****  VALIDATION  BTF  IN  ***** 

REA0< ISYST  >603  > 

IF <  IDEBUG  )WRIT£<9«603> 
k£AD< ISYST  *700>BTF4*BTF5*BTF13»BTF14 
IF  <  IDEBUG  )WRITE<9>  700)BTF4>BTF5*  B1F13* BTF14 
700  FORMAT ( 4 (F5« 2 > IX ) ) 

C  *****  TURNBK  IN 

R£AD<ISYSI«.6fl3) 

IF <  IDEBUG  > WRITE < 9*603),' 

READ  < ISYST *  23 ) ( TURNBK ( LK ) *  LK- 1  *  KU ) 

IF <  IDEBUG  )WRITE<9*23) <  TURNBK (LK) *LK-1 *KU) 

23  FORMAT (3<F5.0* IX) ) 

RCAD( ISYST  *603) 

IF <  IDEBUG  )WRITC(9*603) 

C  *****  XSHIP  IN  ***** 

READ( ISYST *  25) ( XSHIP (LC) *LC-4# LU> 

IF (  IDEBUG  )WRI1E<9»2S)<XSNIF<LL>»LC-4*LU) 


25  FORMAT (8F8.0) 

C  tlttl  XCAP  IN  S«««9 

READ( ISYST.25) (XCAP(LC) .LC-4.LU) 

IF <  I DEBUG  )WRITE(9»25) < XCAP < LG) .LC-4.LU) 

C  *****  NON-C  XN 

READ< ISYST. 603) 

IF  <  X DEBUG  ) WRITE (9. 603) 

READi ISYST. 61 7)  (  (PCRF(NN.NU)  .MH-1  *  !4hND>l  *2) 

JM  IDE  BUG  >WRITE(9.617>  (  (PCRF  (MM.MD)  *MN-1 . 14  >  .ND-1  »2> 

617  FORMAT < 14  (F4 « 1 » IX) ) 

C  IUII  FLOAD  IN 

READ< ISYSTf 603) 

IF<  X DEBUG  )WRITE(9»603) 

NEAD<  ISYST. 618)  < FLOAD (MC> »MC*1 .4) 

XF<  IDEBUG  ) WRITE ( 9.61B )  (FL0AD(MC) »MC-1 .6) 

61tt  FORMAT  <6F4.2) 

C  IUII  DXSTN  XN  ***** 

R£AD( XSTST  *603  > 

1F<  IDEBUG  )WRITE<9»603) 

KEADUSYST.62?)  (  <DISTN<ND.MC>»ML-1.6>»ND-1.2> 

IF <  IDEBUG  ) WRITE (9.629) ( (DISTNiND.MC ) *MC-1 .6)  .ND-1 .2) 

629  FORMAT (6F7.1 ) 

C  IUII  FILL  IN  ***** 

READ (ISYSTf 603) 

IF <  IDEBUG  )WRITE< V.603) 

READ( ISYST » 629) ( (FILL (MC > LL  >  »MC-1 .6) »LC*4 .LU) 

IF <  IDEBUG  )WRlTE<9.629H(FXLL(MC.LC)»HC-1.6)rLC-4tLU) 

C  IUII  EMPTY  IN  ***** 

READ< ISYST* 603) 

IF <  IDEBUG  )WRITE(9»603> 

READ( ISYST  *629) ( (EMPTY  (MC.LC) »HC-1 *6) .LC-4.LU) 

IF (  IDEBUG  )WRI 1 t (9.629) ( ( EMPTY ( MC » LC > .MC-1 .6) .LC-4  »LU> 

C  *****  HRS  IN  ***** 

READi ISYST  1 603 ) 

IF  <  IDEBUG  )WRI TE<  9*603 ) 

READ (ISYST* 621 > < ( <HRS(HN. ISA.MC > »MN-1 . 14 > »MC-1 .6) t ISA-1 .4) 

IF  <  IDEBUG  >WRITE(9.621)<((HRS(MN. ISA. MC). MN-1. 14). MC-1. 6). 

4  ISA-1. 4) 

621  FORMAT ( 14F5. 1 > 

C  *****  USA  IN  ***** 

READ< ISYST .603) 

IF  <  IDEBUG  )  WRITE (9.603) 

R£AD< ISYST»313><<<  VSA<  MN. LC. ISA ) .MN— 1 » 14 ) .LC-4.LU) » ISA— I  *  4 ) 

IF<  IDEbUG  >HfUTE<9, 313) ( < ( VSA(MN.LC. ISA) .MN-1. 14). LC-4.LU)* 

4  XSA-1.4) 

C  *****  DIN  IN  **** 

READ< ISYST. 603) 

IF  <  IDEBUG  ) WRITE (9.603 ) 

RLAD< ISYST. 313) <  <DIN<MN. ISA) .MN-1 *  14) . ISA- 1 .4 > 

IF <  IDEBUG  )WKITE<9. 313) < ( DINiMN. XSA ) .MN-1 # 14 ) . ISA-1 .4 ) 

313  FORMAT ( 1 4F5 «  2 ) 

C  *****  READ  IN  RETIREMENT  PERCENTAGES  ***** 

READ  (ISYST. 603) 

DO  7710  J-1.9 
J1«J-1 

IF(Jl.EO.O)  IR-fl 
IF(Jl.EO.l)  IR-15 
XF<J1.UE.2)  XR- Jl«10 

7730  IF  (IS  .EO.  1)  READ( ISYST. 624)  (P0( IR.LC) .LC-4.LU) 

IF  (IS  .£0.  1  .AND.  IDEBUG  )  WRITE(9.624)  (POUR.LC) 

4  .LC-4.LU) 

IF  (IS  .NE.  1)  READi ISYST. 707)  (P0( IR.LC). LC-4.LU) 

IF  (IS  .NE.  1  .AND.  IDEBUG  )  WRITE<9.787>  (PO<IR. 

♦  LO.LC-4.LU) 

7710  CONTINUE 
787  FORMAT (4F3. 2) 

624  FORMAT (0F5. 2) 

C  *****  BASEFT  IN  ***** 

READ (ISYST. 603) 

IF (  IDEBUG  )WRITE(9.603) 

IF (IS.EO. 1 > READi ISYST.633) < ( BASEFT (MC.LC) .LC-4.LU) *MC-1 .6 ) 
IFdS.EO.l  .AND.  IDEBUG  )WN2TE<9.633)  (  (BASEFT (MC.LC)  .LC-4.LU)  » 

4  MC- 1.6) 

IF< IS. NE. 1 >R£AD( ISYST .634) ((BASEFT (MC.LC >fLC-4»LU)»MC-l. 6) 

IF( IS.NE. 1  .AND.  IDEBUG  )WRIT£(9.634) ( (BASEFT (MC.LC) .LC-4.LU)  f 
4  MC-1.6) 

633  FORMAT <7F6. 2) 

634  FORMAT <4(F5.2.1X)) 

L  *****  BTF  IN  *«** 

READi ISYST. 603) 

IF <  IDEBUG  ) WRI TE ( 9. 603 ) 

READi ISYST. 313) ( <BTF(MN. XSA) .MN-1 . 14 ) • ISA- l »4 > 

IF (  IDEBUG  )WRITE(9.313)((BTF(MNfISA)*MN-l . 14 ) . ISA-1 .4 ) 

L  *****  1 UFCX  IN  ***** 
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READ< 1SY8T  *403) 

IF  <  I  DEBUG  >WRITE(9.403> 

IF  (  IS. Eli. 1  )READC  1SYST  »407>  <  <  TDFCX<M* I )  »M-1*J) *1-2*4) 

IF <  IS.EO.l  .AND.  I DEBUG  >WRITE (9*407) < < TDFCX(M. I ) *M-1 .3 ) * 1-2.4 ) 
IF  <  IS.Nt.l  )READ< ISYST*  406) <  <  TDFCX<M* I )  *  M-l *5)*I-2*4) 

IF <  IS.NE.l  .AND.  IDEBUG  )WRITE<9* 40AM < TDFCX <M* I ) *M-1 * 5 ) » 1-2*4 ) 
407  FORMAT  <3<F4.4*1X>) 

404  FORMAT  <5<F4.4*1X>) 

C  *****  READ  INCREASES  IN  CAPACITY  WITH  DEPTH  ***** 

READ  ( 2SYST *403 ) 

IF  (  IDEBUG  >  WRITE  (9*403) 

READ  <  ISYST » 9900 )  (CAPINC < LC )  * LC-  4*LU) 

IF  (  IDEBUG  )  WRITE  <9*9900)  (CAPINC(LC) *LC-4,LU) 

WOO  FORMAT  (11F7.2) 

DO  ISIS  LC-4.LU 

SCOS  T ( LC )  -XSH I P ( LC  >  4XCAP  <  LC ) 

CC(4*LC)-CC(2*LC) 

CC(S*LC)-CC<3»LC> 

CC< 4*LC>-CC(3*LC> 

CC<3*LC>-CC(1»LC> 

GL0AD(LC)-0 

GBAL<LC)-0 

ZB<LC)-ZBHF(LC) 

IZBM<  LC ) - 100*ZB < LC ) 40.5 
1510  CONTINUE 

DO  IS  MN-1*14 

IF( IS.NE • 1 )G0  TO  lb 
f DF < 4 *MN)-TDF < 1  * MN) 

TDF(5*MN)-fDF  <1*MN) 

T  DF  <  4 » MN )  -  T  DF  <  2  *  MN  > 

T  DF  <  7  *  MN  ) • 1 DF  <  2  *  MN ) 

TDF(8*MN)-TDF(2*MN) 

TDF ( 9 » MN )•) DF ( 2*  MN ) 

TDF< 10*MN)-TDF(3*MN) 

T  DF  <  1 1  *  MN  ) - 1 Df  <  3  »  MN ) 

GOTO  15 

10  CONTINUE 

TDF<4*MN)»fDF< 1 *MN) 

TDF<4*MN>-fDF<l*MN) 

TDF<5*MN)-fDF(2*NN> 

TDF<7.MN)-1DF<2*HN> 

15  CONTINUE 
C 

RETURN 
END 


SUBROUTINE  HEADER  < IS* INUMB* IR* ISN. ILTML) 
IMPLICIT  INTEGER  < I > 


SUBPROGRAM  HEADER  PRINTS  THE  PAGE  HEADING* 

PAGE  NUMBERS  AND  INCLUDES  CARRIAGE  CONTROLS 

COMMON  /HEDCOH/  IDHO< 14) *  I YR<0O> 

INI  EGER  ILK3) 

C 

DATA  ILT  /  4HN0RM* 4H  LUW * 4HHIGH  / 

L* 

2  FORMAT  < 1 1 » 2X ) 

100  FORMAT <30X*34H****  UL/SLS  LOCK  CAPACITY  MODEL  ***** 

4  32X * SHPAGE  *I2*4H  OK  *12) 

110  FORMAT  <44X*2SH**«*  SOO  LOCK  SYSTEM  »*t«*2SX*0A2*2X*4A2> 

120  FOkNA T  (45 X'JJHS***  NELLANV  CANAL  *«B**24X*bA2*2X*4A2) 

130  FORMAT  <41X*20H<*«  ST.  LAWRENCE  RIDER  **** ,  21>X » ttA2  *  2X » 4A2  > 
140  FORMAT  (49X.5H****  *I4*5H  «****/ 

4  J2X22M****  SEASON  EXTENSION  •UvlAHI  LOCKING  TIME  *A4* 

4  SH  *•**> 

150  FORMAT </> 

C 

NCXPG- 1 

INUMB  -  INUMB41 
IPGS- 9 

IF (  IS.EO.l  )  IPGS- 11 

WRITE (0*2)  NEXPG 

WRITE <0* 100) INUMB* IPGS  ' 

IF <  IS.EU.l  ) WRITE (0*110) 

IF <  IS.E0.2  )WR1 TE ( b* 120 ) 

IF <  1S.EQ.3  > WRITE < 8* 1 30 ) 

WRITE (0*140)  XYR(IR)* ISN* ILT< ILTML) 

WRITE <  b» ISO) 

C 

RETURN 

END 
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SUBROUTINE  OUTNOD<  LC  <LU.  IS.  I NUMB.  IR.  1SN.  It  1  ML  .NLXPG. 

♦  1CAP.CARF  1 

C 

IMPLICIT  INTEGER  (It 

DIMENSION  SORTOL < 12< 14) <SORTOT< 3< 14 1 

c 

c 

C  THE  OUTPUT  MODULE  CONI  AIMS  7  SUBPROGRAMS  THAT  PRINT  7  TABLES 
C  AND  PRINTS  2  ADDITIONAL  TABLES  WITHIN  THE  MODULE  BODY 
C 

COMMON  /HE DC ON/  1BH0< 14) . 1YR<80) 

COMMON  /OUECOM/  CAGOCL <4.121.  UB1 NN( 12.3.14).  DL  TRN <I2<3<141< 

4  DM<141<DT<12<3< 14). IDBTRNC 12.3) <IC1RNP<4< 12. 2). IDLTRM<12<31< 

4  1HRS<141<ILTR< 3. 12). IRH0<4<141<<SDEV< 4. 2<141<1SYSTH< 14). 

4  ITLTR<3.12)  < I TNCST < 15. 12. 4 1 <ITNCYC<4<2< 14 » . I  TOT < 3. 3> • 

4  1T0TC(2»4> . ITTCST <12.31  <UUC<4<2.141 <T0TDB<3. 14) <T0TDL<3<141< 

4  TOTDT 13*141 <MTGM<4<2< 14 ) . XUB TRN < 12.21. XDLTRNI 12.2) 
COMMON/Q/ARTAR( 12*2) <ARTLL<2) »ARTPO£(2> <AOGOAR<4< 2 ) * 

4  CAPCTY<4.2)<<"'  TF ( 4 • 2  >  <  DTLUCK ( 4  <  2  >  *  LMAX  <121<LM1M<121< 

4  HONRa: < 14 > <P0CAR<12< 2) <P0ECL<2I<RAMDA< 4 . 2>.RH0<4. 21<RPMCL<2I< 
4  SABARU2<2>  <6DEV<4<2I  <SHIP<12<41<SOOAR<4<  I2<2I<TWAL<14<  12)  < 

4  TBALT<  12)  <TIICST<4<  12)  <  104  CX <5<4>  <  T IN£S<  14  >  <  TLOAU<  1 4 <  12)  < 

4  TLOADTt 12 I <VMCYCL<4<2I < (HEAN<4.2 I<TTI<141< 

4  VARTH<4  <  2 ) <  TLOCKM  < 4<  2 ) <  DAKAR  < 12  <  2  > 

COMMON  /COMMOD/  WHEAT <  80<  3 1 < SOY< 80<  3 1 < BLYRYE < MG.3)  <CQRN<80<3) < 
4  0ILSD<S0<3) <ALHSTN<BO< 3) <A1R0RE<8O<3I <RAWMAT<WO< 3) < 

4  COAL  <  SO  <  3 ) < PETROL  <  WO  <  3 >  <  DRYBLK  <S0  <3  >  <GENCAR<WO<  3  >  < 

4  STLPRDI 80  <  3) <GRAIN< W0< 3 ) < STONE ( 80 < 3 ) <0RE<60<31 <  WULK<60<J1< 

4  GNCAR<80<31<CEMENT <80<31<AMIN<80<31 
COMMON  /MlNARr/  BASEFT  <  4 • 1 2 1 <CC  <6< 12) <  UFA< 14<4>  <D1STN<2<41 < 

4  EMPTY <  4< 12) <  F ILL  <  4  < 12 1 <FLEETN<4< 12) <  FLOAD< 6 1 <  HRS YR  < 4 1 < 

4  P0<  80< 12)<R£ DFT<121<TDF< 12<141<TRIPYR<4<121 <OSH  < 12  <  4 1 < 

4  WDIST< 4) <ZBHF< 12) <ADDFCT<4< 12) <CAPINC< 12) 

COMMON  /CARGCH/  CAU0CM<4< 14) t bOR< 12 < 12< 14 1 

DIMENSION  CARF<3<1S<801 

C 

9  FORMAT! Ill 

70S  FORMAT  <2X<I2<1X<4<1X<I4<2X<I4<4X11 
73/  FORMAT  < SX <4< 2X <S< 1H- 1 < 3X< 5< 1H- 1 <4X 1 </ < 

4  1X<SHT0TAL<I4<2X<14<4X<S<1X<I4<2X<I4<4X1 1 

2239  FORMAT  <///  .  14X<  13HLGADED  THAHSIT3<23X<9HBALLAS1ED< 

4  9H  TRANS I TS<24X<SH TOTAL <//< 

4  20X <  3HT0TAL  <  33X <  SHTUTAL  <  34X  <  SHALL < / < 

4  IX. SHCLASS<2<10X< 2HUP<10X<2HDN<7X<SHTOTAL<2X1<10X<2HUP< 

4  10X<2HDN<7X<SHT0TAL1 

2240  FORMAT  < 2X<12<2X<3< 3X<2<I9<3X1< 19.2X1) 

2243  F0HMAT<4X<3<8X<2<4H - <4X1  >  4H - )) 

2242  FORMAT <1X<SHTUTAL<3< 3X<2<I9<3X 1.19. 2X1) 

110  FORMAT  <11</1) 

123  FORMAT  <  7< / 1 1 

113  FORMAT  <33X<39H4B<8  DAILY  TRANSIT  DEMAND  BY  MONTH  AND  < 

4  10HCLASS  4444.) 

121  FORMAT  < /<  28X<A8<4SX< A8) 

122  F0RMAT<2X. 2<12X<2HUP<14X<2HDN<13X<9HT0TAL  )</< 

4  1X<SHCLASS<4<18H  LUAU  BLST  TOTAL  1) 

224  F0RMAT<2X<I2<4<2X< 2<1X<F4<11< 1X.FS.11) 

225  FORMAT<4X<4<2X<2<1X<4H - 1.1X.SH - )./. 

4  1X<SHT0TAL<4<2< 1X<F4<11<1X<F5< 1.2X1) 

118  FORMAT  <  SOX  <  9HC0NT I NUED 1 
128  FORMAT  <9< / 1 1 

123  FORMAT  <7</l) 

124  FORMAT  <12</1) 

2100  FORMAT  <31X<2SH4444<  YEARLY  TRANSITS  BY  < 

4  23HCOMMODITY  AND  CLASS  44444.///. 

4  47X.13HL0ADED  TRANSITS.//. 

4  13X.3HORE. 1SX<4HC0AL<1SX<5HST0NE< 14X<SHGRAIN<12X< 

4  10H0THER  BULK < 9X * 9HGEN  CARGO./. 

4  1X<SHCLASS<S< 4X<2HUP<4X<2HDN< SX1<4X<2HUP<4X<2HDN1 
C 

I NUMB-  0 

WRITE  <8.91  NEXPG 
IF<1S<NC<11  GO  TO  7791 
DO  984  LC-3.LU 
DO  985  MN-1.14 

DO  987  K«3< 12.3 
SOR<K<LC<MN 1*0 
987  CONTINUE 

DO  97S  K-1.12 

SOK<  K  <LC  . HN 1-IF1X< 10.4  S0R<K<LC<MN14  0.S140.1 
97S  CONTINUE 

V8S  CONTINUE 
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98 4  CONTINUE 

DO  984  HN-  1  •  1 4 
DO  983  LC-3.LU 
DO  982  HD-1,2 

SOft  <  3 • LC ,  AH  1 - SOft  <  3 » LC , HN 1 4  GQR  <  NU , LC , HN > 

80ft  ( 4 , LC , HN  1  -bOR ( 4  * LC » Hft  1  4 SOft  <  (ND43  1  »LC  .  HN  1 
SOft  ( 9* LC  , HN1-SOR ( 9 , LC  »HN) 480R <  CN044)  .LC.HN1 
S0«( 12.tC.XN>>  SOft ( 12, LC, HN 1 4S0R1 (NU49  > ,LC  *  HN ) 

982  CONTINUE 

983  CONTINUE 

984  CONTINUE 

00  7292  K-1.12 
DO  7793  J- 1,14 
SOftTOLIK, Jl-0.0 
7793  CONTINUE 

7792  CONTINUE 

DO  7794  J-I.14 
DO  7793  K-l.12 
DO  7796  LC-3.LU 

SOftTOLIK, Jl-SORTOLOC,  J1480ft<K,LC,  J1 

7796  CONTINUE 

7793  CONTINUE 

7794  CONTINUE 
GO  TO  7797 

7791  CONTINUE 

DO  3  IA  -  1.3 
DO  7  ID-1.14 

SOftTOTC IA.ID1-0 

7  CONTINUE 
S  CONTINUE 

DO  8  UN- 1.14 

DO  90  LC-3.LU 
DO  10  ND-1.2 

SOft ( ND > LC • NN )-IFlX<10*8  SOR t ND.LC ,HN1 +  0.31*0.1 

10  CONTINUE 

SOR<  3.LC.HN1 -SOR< 1 , LC , HN ) 4S0R ( 2.CC.NN) 

DO  11  ND-1.3 

SOft TOT (ND.NNl-SOftTOT ( ND, Hft 1 4S0R( NO, LC ,HN 1 

11  CONTINUE 
90  CON  I INUE 

8  CONTINUE 

7797  CONTINUE 
IPftINT-0 

IFUR.E0.81  GO  TU  7537 
IFOR. ED. 13 )  GO  TO  7337 
DO  7349  J-20.80.10 
1FUR.E0.J1  IftftINT-1 
7549  CONTINUE 

IFUPRINT.EQ.ll  GO  TO  7337 
IFUCAP.GE.il  GO  TO  7548 

CALC  OUE TAD < I S . I NUHD •lR.I&N.lLTNL.bORTOC. 

+  SOft TOT .LU1 
GO  TO  7352 
7348  CONTINUE 

IF< Ift.GT .201  GO  TO  7353 
IF  ( Ift.LT .151  GO  TO  7534 
YEAR-Ift*l .0-13.0 
DO  7353  N-  1.3 

DO  7354  N-  1.13 

CARF  <N»H» Ift 1-CAftF  <N,H,1514( YEAR/5. 01*  <  CAftF (N.N.20 1 -CARF (N.H, 1511 
7334  CONTINUE 
7355  CONTINUE 

GO  TO  7557 

7334  YEAft-Ift*l. 0-8.0 
DO  7558  N-  1,3 

DO  7539  H-  1,13 

CAftF  <N»N,  Ift  1-CAftF  <N.N,81F<  YE  Aft/7  *  01*<  CAftF  ( N.H,  13 1-CAftF  <  N.N.8 1  1 
7339  CONTINUE 
7338  CONTINUE 

GO  TO  7357 
7333  DO  33  1-2.7 

DO  32  Jl-2.8.2 

X YEAR* I *104 J1 

IFUft.tO.  IYEAftl  1D£C-I*10 

32  CONTINUE 

33  CONTINUE  . 

IDEC1-IDECF10 

YEAft-< Ift-IDEC)*1.0 
DO  7541  N-  1,3 
DO  7342  N-1,13 

CAftF < N, N» Ift 1-CAftF (N.N, IDEC 14 ( YEAR/10 . 0 1* < CAftF ( N.H, IDEC1 1 
4-CARF (N.H, 1DEC1 1 
7342  CONTINUE 
7341  CONTINUE 
7337  CONTINUE 
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C  *****  PROJECTED  CARGO  TABLE  ***** 

C  *****  FLEET  HIX  TABLE  ***** 

C  *****  VESSEL  CHARACTERISTICS  tasle  ***** 

c 

CALL  PROJCR  (IS.IHOAK.IRrIbH.ILTHL.CARF> 

CALL  HIX  <LU.IS.INUNS.IR.ISH.ILTHL.bHlP> 

CALL  VESCHR  < IS.LU.LHIH.LHAX> 

C 

C  *****  YEARLY  TRANSITS  TASLE  ***** 

C 

DO  23*1  IA-l.LU 
DO  23*2  IB-1.2 
ILTR< IB.IA>-0 
ITLTRl IS. 1AJ-0 
IDBTRN(lA.IS>-0 
IDLTRNI IA. lb>-0 
XDBTRN1 IA. lB>-0. 

XULTRN< IA. 1ST— O. 

23*2  CONTINUE 

ILTR ( 3. I A J-0 
ITLTR<3» IA)-0 
IDBTRN( IA.3)— 0 
IOLTRN<IA>31>0 
23*1  CONTINUE 

DO  23**  I A- 1.3 
DO  23*5  IK-1.3 
ITOT  < IS. IA>— O 
23*5  CUNT  I  HUE 

23*4  CONTINUE 

DO  23**  1A-1.A 
DO  23*7  IB-1.2 
ITUTCI IS* IAI-0 
23*7  CONTINUE 

23**  CONTINUE 
C 

CALL  HEADER  (IS. INUHS. IR. ISN. 1LTHL ) 

C 

WRITE (8.2100  > 

CO  105  LC-4.CU 
DO  107  HN— 1.14 

XCDTRNI LC • 21— XDBTRN(LC.2>4DKTRN<LC» 1 .HN)*DH<  HN> 
XD-rRNiLC.  I>-XBBTRN<LC.1>4DDTRN<LL>2.HN>*I>»<HN> 
XDLTRN(LC.2>-XDLTKN(LC.2>4DLTRN<LC.1.HN>*UH<HN> 
XDLTRN(LC.I  >*;*DLTRN<LC.1>4ULTRN<LC.2.HN>*DH<HN> 
107  CONTINUE 

IDBTRNTLC.l J-XDBTRN<LC«1>40.S 
1DBTRN(L£.2)-XDBTF.N(LC.2>40.S 
IDLTRNILC.l >-XDl  TRN(LC. 1 )+0.5 
IULIRN<LL.2>-XDLTRN<LC.2>40.S 
DO  109  HC-1.* 

DO  102  ND-1.2 

I TOTC  <  ND. HC ) ■ ITOTC ( ND.HC ) 4 IC IRNP ( HC . LC . ND  > 

II TR < ND. LC >• ILTR(NU. LC)4ICTRNP(NC.LC. HD > 

102  CONTINUE 

109  CONTINUE 

IDBTRN(LC.3>-IDBTRN(LC. 1 >41UK1RN(LC.2  > 
IUL1RN(LC.3>-I1<LTRN(LC.  1  >4IDLTRN(LC.2> 
1LIR(3.LC>-ILTR( 1 >LC>4ILTR(2.LC) 

DO  <04  ND-1.3 

I IL  fR<ND.LC  >- 1L  fR(ND»LC  >  41 DBTRNILC.ND ) 

1 (OT(ND.l ) -I  TOT (NO. 1 >4IL1R(ND.LC> 
1T0T(NS.2>-IT0T(ND.2>41UKTRN(LC.ND> 

1  TOT ( ND. 3 ) - 1  TOT (No. 3  >4ITLTR(N0.LC  > 

104  CONTINUE 

105  CONTINUE 

DO  799  LC-  4»LU 

WRITE  <8. 795  >LC.  <  (  ICTRNf*(HC»LC*  I  >. 1-1. 2>.  HC-1. «> 

799  CONTINUE 

UR1TE<S.7S7>( ( ITOTC(ND. NC >. ND-1.2). HC-1. *> 
URITE(8.2259> 

DO  22*1  LC-4.LU 

WRITE ( 8 . 2260  >LC.(ILTR(I»LC>.I-1.3>.( 1DBTRN( LL . 1 ) . 

4  !-l. 3). (ITLTRd.LC). 1-1.31 

22*1  CONTINUE 

WRITE(8.2263> 

WRITE<8.22*2>( (ITOT(ND.NE).ND-l .31.NE-1.3) 
WNlTE<e.tlO> 

IF(  IS.NE.l  >  WRITE  <  8. 125  > 

C 

C  *****  DAILY  TRANSIT  DEHAND  TABLE  ***** 

C 

DO  23*9  IA-1.14 
DO  2371  IS-1.3 

DO  2372  IC-l.LU 
DT< IC. IB. IAI-0 


2372  CONTINUE 

TOTDL(IB»IA)-0. 

T0TDB(I*.1A>>0. 

lOTDTWB.IAl-O. 

2371  CONTINUE 

2349  CONTINUE 

DO  Ill  HN-1 *  14 
DO  112  LC-4.LU 

HOLD-DLTRN(LC.l.HN) 

DL (RW( LC . 1 » HN) -DLTRN(LC*  2. HN) 
DL TRN(LC » 2. HN)-HOLD 
HOLD-DBTRN(LC.l.HN> 
DBTRN(LC.1.HN)-DBTRN(LC»2.MN) 
U8TRN(LC>2>HN)-H0LD 
112  CONTINUE 

111  CONTINUE 
C 

CALL  HEADER  (IS. INUHB. IRf ISN. 1LTNE  > 


WRITE<8.113> 

DO  114  MN-1 >14 

DO  115  LC-3.LU 
DO  977  ND*l * 2 

DL  TRN ( LC  r  ND . NN >-IFIX(lO.*DL TRN ( LC .ND  »  HN  >+0.5)40.1 
OBTRN(LC.HD.MN)-IFIX( 10.*D»lKN(LC.ND.flN)+0.5)*0.l 
977  CONTINUE 

DLTRN(LC.3.HN)-UL1RN(LC.1.MN>  +  IILTRN(LL.2.HN> 
DBTRN(LC.3.HN)-D8TRN(LC.l .HN)+DSTRN(LC.2.MN) 

DO  114  ND*1.3 

DT(LC>ND.MN>-PLTRN(LC.ND.HM>+DBTRN(LC.ND.HN> 

1 01  DL  ( ND.HN) -TOT DL (ND.MN) +DL TRN (LC .ND.HN  > 
TOTIiB(ND.nN)-IO)Db(MD>HN>+DBTRN(LC*ND.HN> 

TOTDT (NO. HN>-TOTDT(NO.MN)+DT(LC. ND.HN) 

114  CONTINUE 

115  CONTINUE 
114  CONTINUE 

DO  117  1*1.13.2 
•J-I+3 

IF(  J.GT.14  )  J*J-14 
JI-J+1 

IF(  JI.E0.15  I  Jl-1 

UNITE <8. 121 1  IB«0(J).IB«0(J1) 

NKITEI8.1221 
DO  223  LC-3.LU 

UR1 TE (8.224  >LC . (DLTRN(LL'.K .  J) >  OBTRNILC.K . J> .DT(LC.K.J). 
+  K-1.3).(DLTRN(LC.K.JI > . DBTRNiLC.K r JI l.DTltC.K.JI > 

+  .K-1.3) 

223  CONTINUE 

NRITE  <8.2251  <TOTDL(K.J>.TOTDB(K.»f  TOT  It  T  <K«  J>  rK-1 .3) . 

♦  (TOTDLCK. JI 1 .lOTDBIK. J1 ) . T0TDT1K . JI > .K-l . 3 ) 

IF(  J.NE.8  .AND.  J.NE.14  1  GOTO  119 
IF  1  IS.NE.l  1  WRITE ( 8 1 128 ) 

CALL  HEADER  < IS. INUHB . IR. ISN. 1LTHL > 

WRITE (8*113) 

WRITE  <8* 118) 

119  CONTINUE 

117  CONTINUE 

WRITE (8. 123) 


IF(IS.NE.l)  WRITC<S.126> 

DO  224  HN-1. 14 
DO  227  LC-4.LU 

HOLD-DLIRNILC. l.HN) 

DL (RN(LC. l»MN)»BLTRN(LC.2»NN) 

DLTRN(LC*2.HN)-H0LD 

HOL D-DB TRN ( LC . 1  * HN ) 

DBTRN(LC.l .HN)-0BTRN(LC.2.NN> 
DBTRN(LC.2.HN)-H0LD 
227  CONTINUE 
224  CONTINUE 
C 

C  «*«*«  ACTUAL  TNANS11S  TABLE  ***** 

C  *****  OUEUINO  INFORMATION  TABLE 
C  *****  HONTHLT  DELAY  COST  TABLE  •** 

C  *****  ACTUAL  CARGO  FLOW  TABLE  **** 

C 


IF <  IS.EO.l  1CALL  ACTRAN(LU»IS>1HUNB.IR.1SN» 

♦  ilthli 

IF(  IS.NE.l  1LALL  ACTRN2(LU.IS.INUMB.IR.ISN. 

♦  ILTHL.bORTO) > 

CALL  OUCTAB  (IS. INUHB. IR.I8N.ILTML. 

+  SONTUL.bORTOT.LU) 

CALL  ACCARG(CARF.IR) 
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7333  CONTINUE 
RETURN 
END 


SUBROUTINE  PROJCR  < IS* 1MOMB. IR« I  BN. ILTHL .CARF  > 

IMPLICIT  INTEGER  <I> 

DlHENSIO N  CARF <3.13.001 


SUBPROGRAM  PROJCR  PRINTS  THE  PROJECTED  CARGO  FLOW  TABLES 

COMMON  /HE DCOM/  1BM0< lA).lYR(BO) 

COMMON  /PRJCOM/  IPCARG(3.13,13>,PCARG(3,1S.A> 

C 

INTEGER  IPCTOTO. 13) 

C 

SOI  FORMAT  (39X.33HS***  PROJECTED  CARGO  TONNAGE  (*«<•/ 

♦  ASX *21 HI  THOUSAND  SHORT  TONS),//) 

130  FORMAT  <8X . 5< 1 AX » A8> ) 

110  FORMAT  (UX,5(AX.1/H  UP  DOWN  TOTAL « IX)  > 

702  FORMAT  (1X.10HWHEAT  . A< 31 7i IX) . 317/ . 

♦  IX r 10HS0Y  BEANS  • A< 31 7. IX ) i 31 7/. 

A  IX, 10HBARLEYARYE,A(3I7,1X> »3I7/» 

A  1X.10HC0RN  «A(3I 7. 1X> .31 7/. 

A  1X.10H0IL  SEED  • A <317 > 1X1 , 317/. 

A  1 X  f 1 OHL 1 ME  S  T  ONE  .A (317, IX )> 317/. 

A  IX r 1 OH I RON  ORE  .A(3I7, IX) .317/. 

A  1X.10HC0AL  ,A(3I7»1X),3I7/, 

A  1 X v 1 OHR AW  MAIL  . A( 317. IX) . 317/. 

A  1 X  ,  1 OHPE T ROLEUM  • A<31 7 • IX ) • 31 //• 

A  1 X ,  1 OHCEHENT  , A < 31 7 . 1 X ) . 31 7/ . 

A  1X> 10HHINERALS  .4(317.1X1.317/. 

A  IXr 10HDRY  BULK  • A <317. IX) . 317/. 

A  1X.10HGEN  CARGO  . A ( 317. IX ) . JI7/» 

A  1X.10HSTEEL  PROD. A(31/.1X), 317) 

703  FORMAT  (11X.A<3(7H - )1X>.3<7H - )) 

70A  FORMAT  < IX. 10HT0TALS  . A < 31 7. IX ) . 317// ) 

70S  FORMAT  <GX. A< 1AX . AS) . 1 IX. AHYEAR) 

2293  FORMAT  <3</l> 

C 

WRITE  (0.2293) 

CALL  HEADER  ( IS. INUMB. JR. ISN. ILTML) 

C 

DO  20  MN-1 , 13 
DO  21  ND* 1.3 

DO  22  MC*  1.13 

IPCARG(ND.HN.HC)*  0 
22  CONTINUE 

IPCTOT(HD.MN)-  O 
21  CONI INUE 
20  CONTINUE 

DO  2299  ND-  1.3 

DO  2301  MW*  1.1A 
DO  8610  MC-  1.3 

IPCARG(ND.HN.HC)*  CARF ( ND.MC • 1R ) «  PC ARG ( ND • MN • A > 

A  A  0.3 

8810  CONTINUE 

IPCARG(ND.MN,«>*  CARFCND.A. 1R1*  PCARG(NU.MN.3> 

A  A  0.5 

1PCARG(ND.MN.7>*  CARF(ND.7.IN>*  PC ARG (ND. MM. 1 ) 

A  A  0.3 

IPCARG(ND,MN,8>*  CARF  (Nil.  8.  IR><  PCARG(ND.HH.2> 

A  A  0.3 

DO  8820  NC-  9.13 

IPCARG(ND.MM.HC)-  CARF (ND.MC. IR>*  PCARG (ND. MN. 3 ) 

A  A  0.3 

8820  CONTINUE 

DO  8830  NO  1A.13 

IPCARG(ND.MN.MC)-  CARF (ND.MC . IR>*PCARG ( ND . MN. A ) 

A  A  O.J 

8830  CONTINUE 

DO  88A0  NC-  1,13. 

1PCARG(ND. 13, MCI*  IPCAR6 ( ND . 1 5 . MC ) A  1 PCARG ( ND , MN , MC ) 
IPCTOT(ND.MN)-  IPCTOT(ND.MN)A  1 PC ARG ( ND . MN , MC ) 

88A0  CONTINUE 

2301  CONTINUE 

DO  8850  MC-  1,13 

IPCTOT(ND.IS)*  IPCTUT (ND, 13) A  I PCARG (ND. 13 . MC ) 

8830  CONTINUE 
2299  CONTINUE 
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WRITE(8.501> 

WRITE  <  0.  120)  (lBHO(I).I-4.8> 

WRITE<8» 1 10  > 

WRI  TE  (8*702 >  <  <  (  IPCAR0(  X.J.K).X-1.3>  . J-4.8) . K-l  .15) 

WKXTE<8»  703) 

WRITE  <0#  704 ) <  < IPCTOT (I»J)»1-1»3) • J-4.0) 

WHITE <  0. 120  >  (IBMO< 2 >.1-9.13) 

WRITE (8.110) 

WRITE <0. 702) < ( ( XPCARG< I.J.K).I-1.3) »  J-9. 13) »K-1 *  IS) 

WRITE< 0.703) 

WRITE <8. 704 ) < (IPCTOT (I. J). 1-1.3) »  J-9. 13  > 

WR21£<8. 70S)  IBMO( 14 ) .  < I BNO (I). 1-1.3) 

WRITE<8. 110) 

WRITE (8. 702  M  < IPCARG( I »14.K).I-1.3)»( ( IPCARG< I.J.K1.I-1.3). 

4  J-l  .3) .  <  2 PC ARC ( 2.13»K).1-1.3).K-1.15) 

WRITE (8. 703 ) 

WR1TE<  0. 704 ) < IPCTOT (Xil4).I-l»3)»(< IPCTOT  <I»J>»I-1»3).J-1.3>. 
4  ( IPCTOT (I.15).I-1»3) 

WRITE (0.2295) 

RETURN 

END 


immmttHiitiitimmmiitmimitiiifi 

SUBROUTINE  NIX  (LU. IS. INUNB. IR» ISN. ILTHL. SHIP) 
IMPLICIT  INTEGER  (I) 


SUBPROGRAM  NIX  PRINTS  THE  FLEET  NIX  TABLE 

COMMON  /HINARY/  BASE FT <6 . 12 ) . CC < A. 12 ) » DFA< 14 .4 ) . DISTN< 2. 4> . 
4  EMPTY  (6. 12). FILL <6. 12) .FLEE TN(6. 12) »KLUAD(A) »HRSTR( 4) . 

4  P0(80. 12 ) .REDFT  <12)»TDF (12.14). 1RIPYR( 4. 12) . VSN( 12.6) . 

4  WDIST (A) .  2BHF (12) » ADDPCT (6.12) . CAP INC < 12) 

DIMENSION  SHIP( 12. A) » (SHIP (6) .TSHIPS(12) 

DIMENSION  SUMSHP <  4 ) . ASHIP( 6 > . IPCT (4.12) 


100  FORMAT  (//45X.1VH****  FLEET  NIX  ****•//> 

1 10  FORMAT ( 7X . 5HCL ASS . 0X . SHORE . 1 3X . 4HC0AL . 1 1 X . 5HST0NE . 

4  1 1 X  » 5HGRA I N . 1 1 X • 6H0  BULK. 9X.4HGC ARGO. /X.5HT0TAL. 

4  /. I5X . 4 (4HNUMBER » 2X » 5HBUILD. 3X ) ./. 15X.4(5HSH1PS.3X . 1HX.5X) ) 

120  FORMAT (0X. 12. 6 ( 5X  *  F5 • 1.3X.X3). 5X.F5. 1 ) 

130  FORMAT (4X. 7( 11X.5H - ) . / . 7X.6HT0TALS. 2X.F5. 1 »4( 1 IX. 

4  F5.1)//> 

CALL  HEADER  ( IS. INUNB. IR. XSN. ILlML ) 

WRITE (8.100) 

WRITE (8. 110) 

DO  974  MC-1.4 
TSHIP<NC)-0 
974  CONTINUE 

00  992  LC-4.LU 
TSH2PS(LC>-0 

DO  972  MC-1.4  >• 

SHIP ( LC I F I X < 10. Of  SH1P(LC»NC)4  0.3>*0.1 
fSHIPS(LC)- TSHIFS(LC>4$H1P(LC»MC) 

TSHIPiMC )-TSHIP(MC  >4SHIP(LC»MC ) 

IPCT (MC.LO-  ADDPCT (NC.LL) <100.04  0.5 
9/2  CONTINUE 

WRITE <8. 1201LC. <SHIP<LC* J) » IPCT< J.LC > » J-l .4) »TSHIPS(LC> 

V92  CONTINUE 
TTSHIP-0 
DO  2234  NC-1.4 

TTSHIP-TT8HIP41 SHIP  <  NC ) 

2234  CONTINUE 

WRITE (0. 130) <T6HIP(MC).MC-1.4)»  fTSHIP 
ADDTSH-  0.0 
DO  9500  NC-  1.4 
SUMSHP ( NC ) -  0.0 
9500  CONTINUE 

DO  9520  LC-  4. LU 
ALC-  LC*  1.0 
DO  9510  NC-  1.4 

SUMSHP (MC>-  SUNSHP<NC)4  ALC*SHIP(LC.NC> 

9510  CONTINUE 

ADDTSH-  ADDTSH4  ALC* /SHIPS (LC) 

9520  CONTINUE 
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00  9530  MC-  1,6 

IF  (TSHIP(HC)  .to.  0.0)  ASHIP(HC)>  0.0 
IK  <TSHIP(MC>  .£0.  0.0)  UO  TO  9330 
ASHIP(MC)-  SUHSHP(HC>/ISHIP(HC> 

9330  CONTINUE 

ATSHIP-  ADDTSH/  TTSHIP 

WRITE  (8.9340)  ( ASHIP< NC) .HC«1 ,6) . ATSHIP 
9340  FOP HAT  ( 1X.9HC0HP0S1TE./.1X.1OH6HIP  CLASS.SX.F4. l.A< 12X.F4. 1 )//) 

RETURN 

END 


SUBROUTINE  VESCHR  < IS.LU.LHIN.LMAX) 
IMPLICIT  INTESCR  (I) 


SUBPROGRAM  VESCHR  PRINTS  THE  VESSEL  CHARACH  I'ENISIICS  TABLE 

DIMENSION  LHIN< 12) »LHAX< 12) 

C 

COMMON  /CALCOH/  ADDTRN< 6 » 12.2) . CARG0P(A.2>  80) . 

4  CTRAN( A. 12.4) .CTRNPM( A. 12.2).EXTPT(A.2. 80) . HRS( 14.4. A). 

4  THLOCK ( 12.2*4). VSA< 14. 12.4) 

COMMON  /MINARY/  BASEFT < A. 12 >■ CC< A. 12) • DF A< 14 .4 ). DISTN( 2. A) . 

4  EMPTY (A.12).FILL(A.12) .f LEETN< A. 12 > .FLGAU(A) . HRSYR( A) . 

4  P0(80.12>.REIlFT<12>.TDF<12.14>.  TRIPYN(  A.  12)  •  VSH<  12.  A)  > 

4  WDZST < A > . ZBHF< 12) v ADDPCT ( A. 12) . CAP1 NC( 12) 

COMMON  /DAT 1/  BTF < 14. 4 ) . CAREX1 < A. 2.80 > . CAREX2C A. 2.80)  . 

4  DATM< 14)>D1N(14>4). D1ST < A > • 

4  EXTP1 (A. 2.80 ) • LX  TP2(A*  2 .80 > • 

4  IZBH< 12) >LYEAR< 80) >ODAYS< 12) . PCRF <14.21 •  SCUS  T (12) » STDEV<  12.2.4). 
4  TLTML2< 12.2.4). TLTML3< 12.2.4). TUNNBKl 4 > .UNLOAD! 12) . XCAP < 12) • 
c  4  XSHIP( 12) .ZB< 12) .GBALC 12) .ULOAD( 12) 

3  FORMAT  <1X) 

302  FORMAT<A(/) .38X.32H****  VtSStL  CHARACTERISTICS  •«*•> 

304  FORMAT < 25X . AHVESSEL . V X . 4HME AN . AX . 7HHAX I MUM , 39X . 8HCAPAC ITT) 

30A  FORMAT  USX.  AHVESSLL.4X.AHLENGTH.  8X.  AHVCSSEL.SX.8HCARRYIN0.9X. 

4  AHVESSEL . 8X . 7HC0CK I HO.8X.8H INCREASE > 

310  FORMAT (2AX. 4H<FT ) . 9X . 5HCMPH) . AX.8H<S. TONS) . 10X.3HCX > . 10X. 

4  AH  (MIN) > 1 OX .7H( ST/IN) ) 

308  FORMAT <  1SX •  SHCL ASS . SX . SHRANGE . 9X . SHSPEED . AX . (INCAPACITY . 7X . 

4  1 1HUTILIZATI0N. AX . 4H f 1ME. 9X . 10HUITH  DRAFT) 

312  FORMAT < 22X *  1 1HMIN  MAX > 4 7X . 9HUP  DN> 

314  FORMAT < 1 SX . 3H  3.4X.32H  (PLEASURE  CRAFT.  NON-COMMERCIAL. 

4  28H  VESSELS.  AND  ICC  LOCKAGES)  ) 

320  FORHAT (1AX.I2.3X. 14.4X. 14. AX »K5. 1.SX.I7.11X. 13.8X.  14 . 3X> 

4  I4.8X.FS.1) 

332  FORMAT (/1SX.3AHCLASS  S  IS  LAKERS  OF  CLASSES  S  AND  A) 

334  FORMAT < 1SX .30HCLAS8  A  IS  OCEAN  GOING  VESSELS) 

3334  FORHAT  <  1SX.4AHCLASSES  8  AND  9  ARE  BOTH  LAKER  AND  OCEAN  GOING'. 

4  8H  VESSELS.//) 

748  FORMAT <//) 

229A  FORMAT  (A( / ) ) 

C 

URITE<8.302) 

WRITE (8.3) 

WR I TE  ( 8 . 304  ) 

WRITE(8.30A> 

WRITE(8.308> 

WRITE(8.310> 

WRITE (8.312) 

WRITE (8.314) 

DO  330  LC"4«LU 

ICCC-CC<1.LC)40.3 
1TMLK1«TML0CK(LC.2.2)40.S 
ITHLK2>TML0CK(LC.l >2)40.3 

WRI TE (8.320  >LC .LMIN(LC  > .LMAX<  LC> . V8H(LC> 1 > • 1CCC. IZBH(LC) > 

4  1 THLK 1 • ITHLK2 . CAP INC ( LC ) 

330  CONTINUE 

WRITE (8.332) 

WRITE(8.334) 

IF  (IS  .ME.  I  .AND.  LO  .U£.  12)  WRITE  <8.3334) 

WRITE (8. 748) 

WR1TE(8.229A> 

C 

RETURN 

END 
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SUBROUTINE  ACTRAN  <LU» IS. INUMB. IR. ISN. ILTML ) 


IMPLICIT  INTEGER  <I> 


SUBPROGRAM  ACTRAN  PRINTS  THE  ACTUAL  TRANSITS 
FOR  THE  SOO  LOCK  SYSTEM 

COMMON  /HE DCOM/  IBMO< 14) . XYR(BO) 

COMMON  /CARGCH/  CAG0CM(6> 14).GOR( 12» 12*14) 

DIMENSION  SORTOT (24) 

DIMENSION  SORTOL ( 


2221  FORMAT  (43X.25H****  ACTUAL  TRANSITS  HID 
2297  FORMAT  (50X. 9HC0NTINULD) 

2219  FORMAT (/»27X.A8'43X'A0) 

2216  FORMAT (SX'2(SX* 9HMACARTHUR' 1 OX » 3HPOE » 9X » 13HSAB1N  AND  DAVIS) »/ 

♦  IX '5HCLAS8  »6( 17H  UP  DN  TOTAL  )) 

2210  FORMAT <1X»I2»2X»6(1X»2<1X»F4«1)» IX .F5. 1 ) ) 

2219  FORMAT <5X.6<1X» 2 (1X.4H - > .1X.3H - >»/. 

♦  1X»  6HT0TAL  » 6( 2<F4 . 1 'X ) *F5. 1 » 2X) ) 

12  FORMAT  < 12< / ) ) 

991  FORMAT  (/.52X.A8) 

993  FORMAT  (31X'3HSABIN* llX'VHMAC ARTHUR' 11X#3MP0E» UXi  9HNKW  DAVIS 

♦  /» 21X ' 5HCLASS*  4 ( 1 /H  UP  DN  TOTAL  )) 

994  FORMAT  <5X'2(SX*  9HMAC  ARTHUR'  10X » 3HP0E.  12X* 9HNEW  DAVIS)'/' 

♦  IX' 9HCLASS ' 6(1 7H  UP  DN  TOTAL  >) 

995  FORMAT  < 22X ' 1 2» 1X»4< IX * 2< IX » F4 . 1 ) ► IX » F5. 1 > > 

996  FORMAT  <27X»4< 2< 1X*4H - )»1X»5H - » IX > '/.20X'5HI0TAL. 1X» 

♦  4<2(F4.1»X)'f 5*1'2X)> 


CALL  HEADER  US'  INUMB.  IR'  ISN'  ILTML  ) 


WRITE ( 8' 2221 ) 

J-  4 

990  IF  (J  .GT.  14)  J-  J-14 
Jl-  J41 

IF  (JI  .EQ.  15)  Jl-  1 
DO  76  K-1.24 

SORTOT  (K )-0. 0 
76  CONTINUE 


IF 

(LU 

.EQ. 

11) 

WRITE 

<8.991) 

I WHO ( J  > 

IF 

(LU 

.NE. 

11 ) 

WRITE 

(8.2213) 

IbMO(J) . I RMO  <  J 1 > 

IK 

(LU 

.LE. 

10) 

WRITE 

<8.221.) 

IF 

(LU 

.EQ. 

11 ) 

WRITE 

<8. 993) 

IF 

(LU 

.GE. 

12) 

WRITE 

( 8 . VV. ) 

DO 

2217 

LC- 

3*LU 

75 

2217  CONTINUE 

IF  <LU  .LE. 

♦  K-13'21) 
IF  (LU  .EQ. 
IK  <LU  .GE. 

♦  K-16'24) 
IF  <LU  .HE. 
IF  (LU  .EQ. 

4  .AND.  J  . 


IF  <LU  .EQ.  11)  WRITE  <8'9V5)  LC» <SOR<M*LC»J) »M*1 » 12) 

IK  <LU  .LE.  10)  WRITE  (0'2210)  LC» ( bOR(M'LC» J) .M-l »9) » 

<  SOR<M*LC ' JI ) »M*1 »  9) 

IF  <LU  .GE.  12)  WRITE  <8'2210)  LC »  < SOR < M * LC ♦ J ) # M-4 » 1 2 ) » 

<  SOR (M'LC'JI)' M-4  » 1 2 ) 

DO  75  K-  1.12 

IF  (LU  .LE.  10  .AND.  K  . GE.  10)  GO  TO  75 
IF  (LU  .GE.  12  .AND.  K  .LE.  3)  GO  TO  75 
SORTOT  <K )«  SORTOT  <K)+SOR(K»LC' J) 

IF  (LU  .EQ.  11)  GU  IU  75 

SORTOT <K412>-  SORTUT (K+12)+S0R(KtLCf JI > 

CONI INUE 


10)  WRITE  (8» 221 9 )  (SORTOl <K> .K-l » 9) » (SORTOT(K) » 


11)  WRITE  <8'9V6>  (SORTOT(K) .K-1 . 12) 

12)  WRITE  (8.2219)  (SORTOT(K) »K-4» 12) . (SORTOT(K) . 


11  .AND.  J  .NE.  0  .AND.  J  .Nt. 
11  .AND.  J  .HE.  6  .AND.  J  .Nt. 
NE.  1)  GO  TO  15 


14)  GO  TO  15 
9  .AND.  J  .NE.  12 


C 


CALL  HEADER  < IS' INUMB. IN. ISN» ILTHL ) 


IS 


WRITE<0* 2221 ) 
WRITE  <  0t  2297) 
CONTINUE 


J" 

J+2 

IF 

(LU 

.EQ. 

11) 

J*  JI 

IF 

(LU 

•  EQ. 

11 

.AND. 

IF 

(LU 

.NE. 

11 

.AND. 

GO 

TO  1 

99B 

( 


.EQ.  4)  GO  TO  2214 
EQ.  4)  00  TO  2214 


n  n  o  r.  o  n  n  n  o  r,  o  o  o  r  c:  r.p.nor,  «  non 


2214  CONTINUE 

WRITE<S.12> 

RETURN 

END 


SUDR0UT1NC  ACTRN2  <LU.18.INUHV.IR. ISN.ILTHL. 
4  8ORT0T) 

IMPLICIT  INTEGER  <I> 


SUBPROGRAM  ACTRN2  PRINTS  THE  ACTUAL  TRANSITS 
FOR  THE  WELLAND  AND  SLAWAT 

COMMON  /HCDCOM/  l»NO( 14) . 1TR<S0> 

COMMON  /CAR6CM/  CAUGCH<6. 14) »SOR( 12.12. 14) 

DIMENSION  SORTOT <3. 14) 


110  FORMAT  <43X>2SH*«<*  ACTUAL  TRANSITS  «**•> 

120  FORMAT  </&X,St6X .A9.BX)./. 

4  IX. 5HCLASS . 5 <  3X . 2 HUP . 4X . 2HUN • 2X • SMTOTAL , 4 X ) ) 
130  FORMAT  < /6X.4  (AX  .  A9.8X )  •  / » 

4  IX . SHCLASS » 4  < 3X. 2HUP . 4X. 2HDN. 2X»  SH TOTAL. 4X > ) 
2  FORMAT  <3X.I2.1X.3<3<F4.1.3X).1X>> 

4  FORMAT  <4X.5<3<4H - .3X).lX)>/> 

4  1X.3HT0TAL.S<3<F4,1.3X>.1X)  ) 

12  FORMAT  <6X.4<3<4H - .3X1.1X)./. 

4  IX. SMTOTAL. 4<3<F4. 1.3X). 1X>> 

1/0  FORMAT (3</) ) 


CALL  HEADER  < IS. 1NUHW. IR. ISN. ILTML ) 

WRITE(S.llO) 

WRITE (8.1 20  >  <IDM0<I).I-4.e> 

DO  100  LC>4.LU 

URITE(B.2)LC.<<S0R(I.LC.J).I-1.3).J-4.B) 

100  CONTINUE 

WRITE (B.  4)  (  (SORTOT  (Nll.MN)  .Nl)-1 .3)  .MN-4.B) 

WKITEIB. 120)  < I SMO ( I > . I *9 . 1 3  > 

DO  200  LC-4.LU 

WRITE (8. 2)  LC>  < <SOR< l.LC.J).l"1.3) » J»9. 13) 

200  CONIINUE 

WRITE <8. 4 ) <  < SORTOT <ND.MN ) >  ND*1 ,3) »HN»9 >13) 

WRITE<B. 130)  1BM0< 14 ) .  < IBMO< I ) . 1-1 . 3) 

DO  300  LC-XrLU 

WRITE (8. 2) LC. (SORT  1 .LC. 14) .1«1.3).(  <S0R( I .LC. J) « 

4  I-1.3),J-1.J> 

300  CONTINUE 

URITE<8.12><S0RT0T<ND.14).ND>1.3).<(S0RTCM<ND.HN>.ND-1.3). 
4  MN-1.3) 

WRITEIB. 170) 

RETURN 

END 


SUBROUTINE  OUETAB  < IS. INUND.IR.ISN. iltml, 
4  SORTOL. SORTOT ,LU) 

IMPLICIT  INTEGER  (I) 


SUBPROGRAM  OUETAB  PRINTS  THE  QUEUEING  AND  LUCKING  TIME  INFORMATION 

COMMON  /HE DCOM/  I SHOT  14) • lYN(BO) 

COMMON  /CALCOH/  ADD  fRN( 6. 12.2) .CARGOPC 6. 2 . SO > . 

4  CTRAN<«. J2.4).CTRNPM<4.12>2) > EXTPT 16.2.80). HRS (14.4.6). 

4  TMLOCK (12.2.4) .USA (14.12.4) 

COMMON  /QUECOM/  CAGOCL <6. 12 ) .DBTRNC 12. 3.14). DL TRN< 12.3.14). 

4  DM(14).GT<12>3.14).IBBrRN<L2.3>.ICTRNP(0.l2.2).IDLTRN(12.Dr 

4  IHRS<14).ILTR(3.12).1RH0<4.14).ISDEU<4.2.14>.ISYSTM(14>. 

4  ITLTR(3.12>.  Il'MCST  <1S.12.4)«  ITHCYC<  4. 2.14). DOT  <3. 3). 

4  IT0TC<2.«).II TCSTT 12.3) . Qu£(4 . 2. 14).T0TDB(3.14), TOTDL (3. 14 ) , 

4  TOTDT  <3. 14) >WT0M<4.2. 14) >  XDBTRNf 12>2).XDLTRN(12.2) 

DIMENSION  IWAITH< 4. 2. 14 ) 

DIMENSION  SORTOL < 12. 14) .SORTOT <3.14).WAITC<4.2).WAITH(4.2.14) 
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S  FORMAT 
2143  FORMAT 
2171  FORMAT 
2146  FORMAT 
2149  FORMAT 

2191  FORMAT 

2192  FORMAT 

2193  FORMAT 
21 V4  FORMAT 
2193  FORMAT 

2130  FORMAT 

2131  FORMAT 
♦  IX*  22M 


(  IX) 

<41X»29H<t*«  QUEUING  INFORMATION  MID 
< 40X *  1 7HC0M& 1 NA INI NG  LOCK) 

<  31 X . 7 ( 3X » A9  > . / , 30X i 7  <  4X , 2 HUP » 4X »  2HDN ) ) 

(IX*  26HL0CK  OPERATION  TIME  (HRS)  */(6X»l6)) 

(lXt 29HLUCK  CYCLE  TIME  (MINW  MEAN  » /<2( IX, 13) ) ) 
(1X.29H  I  S1  DfcV./(2(lX,IS> ) ) 

< IX '29HAVE. WAITING  TIME  (HOURS)  # 7 ( 2( IX, F5. 2) ) ) 

<  1 X  *  29HAVE .  QUEUE  LENGTH  (SHIPS)  * 7( 2C 1X,F5.2> ) ) 

(IX* 26HL0CK  UTILIZATION  (X)  *7(6X*I6>) 

(//43X. 24HREMA1NIN6  LOCKS  .  SYSTEM) 

(1X*21HSYSTEM  ROUNDTRIP  TIME* 5X* 7(6X* 16) */ 

.  WAITING  TIME  (HRS>> 


127  FORMAT  (3(/)> 

C 

CALL  HEADER  ( IS. INUMB* IR* 1SN* ILTML ) 

DU  2319  1-1*14 

I HRS ( I ) -HRS (1*1 SN  *1 )  40  *  5 
2319  CONTINUE 

WRI T  E (8*  2143) 

IKNT1-0 

IF  (IS  .£U.  1  .AND.  LU  .bC.  12)  XKNT1-  1 
2180  IKNT1-IKNT1+1 
DO  500  1-1*3 
DO  500  J-1.2 

WAITC( I  *  J)-0.0 
DO  500  K-1.14 

WA1TM(I« J*K)-0.0 
IWAITM(I* J*K>-0 
300  CONTINUE 

IF (  IC.NF.l  )  WRITE (8*2171 ) 

IF (  IS.EL.l  >  CALL  QUEUE (IKNTlvLU) 

L 

C  CONSTRAINING  LOCK 


WRITE<8*  2146)  ( I B«0( I ) . 1-4. 10) 

WRITE (8*2149) ( IHRS( 1 ) . 1-4* 10) 

WRITE (8* 2191 )  (Il'MCYC < 1KNT1 . 2. I > . ITMCYC ( IKNT 1 » 1 , I ) . 1-4 . 10) 
WRITE <8* 2192) ( ISDEV< IKNf 1 *2. 1 ) * ISDEO< IKNT1 » 1 » 1 ) • i-4 *  10 ) 

WRITE ( 8*2193) ( WTQM< IKNT 1.2*1) » WTOM ( IKNT 1*1*1)* 1-4  * lO ) 

IF  (IS  .EQ.  1)  GO  TO  3000 
DO  3001  K-  1*2 

DO  3002  1-  1.14 

WAITM( IKNT 1 »K. I )-  WTOM( IKNTl »K* I )•  SORTUT(K.I)*  DM(1) 
WAI TC( IKNT 1 *K )■  WAITC( IKNTl »K >4  WAITM( IKNTl *K* I ) 

3002  CONTINUE 
3001  CONTINUE 

GO  TO  3004 
3000  DO  3003  K-  1.2 
IF(K.EU.l)  K6-2 
IF (K . EU . 2 )  KS-1 
Kl-  <  IKNT  1-1  X34KS 
DO  3006  I-  1*14 

WA1TM( IKNT 1 *K* I )»  WTQM( IKNTl » K *  I ) *  SORT OL ( K 1  *  1 ) *  DM(I> 
WAITC( IKNT 1  * K )■  WAI TC( IKNTl TK ) 4  WAITM( IKNTl *K. I ) 

3006  CONTINUE 

3003  CONTINUE 

3004  DO  3021  K-1.2 
DO  3022  1-1*14 

I WA I T  M ( IKNT 1 »Kt I )-WAITM< IKNTl *K* 1 >40.5 
3022  CONTINUE 
3021  CONTINUE 

WRITE (0*3007)  (IWAITM(IKN) 1*2*1)* 

♦  IWAITM( IKNTl *1.1 )*I-4*10) 

3007  FORMAT ( IX. 2VHM0NTHLY  WAITING  TIME  (MRS)  */(2l6>> 

WRI TE<0* 2194) (QUE(IKN) 1*2*1) *OUE ( IKNTl . 1 . I ) *1-4. 10) 

WRI TE ( 0* 2193) ( IRHO( IKNTl *  I ) . 1-4* 10) 

WRITE (8*2146)  ( I DMO  <I)»I-ll*14)r  ( IDMO( I ) * I-i *  3) 

WRITE ( 8*  2149 ) ( I  HRS  < I ) *  1-1 1 . 14 ) . ( IHRS < I ) *  1-1  *  3) 

WRITE <0*21 91 X  I TMCYC( IKNTl* 2*1 ), ITMCYC (IKNT 1*1,1 )»I-11,14), 

♦  (ITMCYC(IKNT1 *2*1) * ITMCYC < IKNTl *1,1), 1-1,3) 

WRITE <0*21 92) < 1SDEV( IKNTl , 2 , 1 ) , I SDEO < IKNT 1 , 1  *  I > *  I - 11  *  14 > * 

9  < 1SDE0< IKNT 1*2*1). ISDEVM  IKNTl »1»I)*I-1 *3) 

WRITE < 0*2193 X WTQH< IKN1 1 , 2*1 )*W»OM< IKNTl *1,1) .1-1 1.14). 

4  (WTOM (IKNTl ,2*I),W'QM( IKNTl *  1 , I > . 1-1 ,3 > 

WRITE  <0*3007  >  ( I WAITMX IKNT 1*2*1)* 

9  IWAITM< IKNTl *l*I)f2«ll»14)*(IWAITM< IKNTl *2* I )* I WAITMX 
4  IKNTl .1*1), 1-1*3) 

WRITE (0*2194) (OUE (IKNTl. 2.1 ).0U£< IKNTl *1*1). 1-11*14). 

4  (QUE< IKNTl, 2*1) *UUE (IKNTl* 1 *1 ) ,1-1*3) 

WRI TE( 0*2193) (1RH0( IKNTl *  I) . 1-11,14) , 

4  (IRHOdKNTlfJ),  1-1*3) 

WRITE (8* 3008)  WAITC( IKNTl ,2) ,WAITC (IKNTl » 1 > 
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rone  o  non  r.  r.  no 


3006  F0RMAT</,1X#29HYEARLY  WAITING  I  IMt  (HOURS)  »  7X  , 8HUP BOUND X  , 
4  1X»F6.0,7X#10MDOWNBOUND1 ,1X»F6.0) 

IF  <  IS.NE.l  JGOfO  2161 

IF <  1KNT1.LE.2  )  GOTO  2160 
IF  <LU  * 6E .  11  .AND.  IKNT1  .  LL •  3)  GO  TO  2160 
GOTO  2162 

MON- CONS TRAINING  LOCKS 

2181  CONTINUE 

WRITE (8, 2150) 

WR1 TE ( 6 » 21 46 )  < IBM0< I > # I«4, 10) 

WRITE  (8, 2149  HIHRS(I),  1-4,10) 

WRIT£(0,2191)<I1MCYC(2»2»1)» I THCYC ( 2 » 1»I)*I-4»10> 

WRITE (8, 2192) ( ISDEV( 2, 2, I ) , ISD£V<  2, 1,1), I -4, 10) 

WKIlE(0f 2193) (WTCN1(2r2t I > rWfUN(2t 1 » I ) r 1-4,10) 

WRI TE  <  8 , 21 94 ) (ODE (2,2,1) ,QU£<  2, 1*1), 1-4, 10) 

WRI TE (8, 2195 ><IRHO< 2,1 >,1-4,10) 

WRITE(0f  2151  )  (ISYSTMCl  >,1-4,10) 

WRITE (8,2146)  < IB«0< I ) *  1*11 , 14) »  < IBMO( I)»I-1»J) 
UKITE<0,2149)(IHRS( I) ,1-11,14),<IHRS(I),I-1,3) 
WKITE(8»2l9l><ITMCYC<2,2»I >,1TMCYC(2» 1,1 > ,1-11,14), 

4  (IVMCYC(2»2»I)»I THCYC (2,lfl)fl-l*3) 

WRITE<8»2192HISDEV<2»2»I  >»ISDCV<2,1,  D.I-ll,  14), 

4  <ISD€V(2»2» I)» ISDEV<2»1» 1), I-l»3) 

WRITE (0,2193) (WTUH( 2,2,1 > ,WTQM< 2,1, I >,1-11,1 4) , 

4  (WTQM<2,2* I ) ,WTQM(2, lr 1 ),1-1,3) 

WRITE(8t 2194) (QUE( 2,2,1 ) , UUE (2, 1,1), 1-11,14), 

4  (QUE<2,2,I),0UE(2, 1,1), 1-1,3) 

WRITE (dr  2195) < IRHQ<2t I)fl-ll,14)f 
4  (IRH0(2,I), 1-1,3) 

WRI TE ( 8, 2151 )(ISYSTM< I), 1-11,14), <ISYSTH(I )rl-l ,3) 

2162  CONTINUE 

WRITE(6, 127) 

RETURN 

END 


SUBROUTINE  ALCARG < CART r Ik) 
IMPLICIT  INI  EGER  (!) 


SUBPROGRAM  ACCARG  PRINTS  THE  ACTUAL  LARGO  FLOW  TABLE 

COMMON  /CARGCM/  CAGOCM< 6, 14 ) , SON< 12, 12, 14 ) 

COMMON  /PRJCOM/  IPCARG<3, 15, 15) ,PCARG<3, 15,6) 

C 

DIMENSION  CARF<3, 15,60) 

DIMENSION  ITFLOW(IS) , JCAGOf 15,14), ICAG( 15) 

C 

INTEGER  ICFLOW< 15) 

C 

DATA  ICAG  /  8H WHEAT  ,8HS0Y  BEAN, 0HBAR4RYE  , 

4  8HC0RN  , 6H01L  SEED, 8HL I MESTN  ,6H1R0N  ORE, 

4  8HC0AL  , 8HRAW  MAI L » 6HPETR0L  , 8HCEMENT  , 

4  6HMINERAL  ,8HDRY  BULK , 6HGEN  CARG,6HSTL  PROD  / 

L 

1  FORMAT  <  4< / ) , 37X , 40HACTUAL  CARGO  FLOW  BY  COMMODITY  AND  MONTH) 

2  FORMAT (3X,53HCARG0  1  APR  2  APR  HAY  JUNE  JULY  AUG 

4  42HSEPT  OCT  NOW  1  DEC  2  DEC  JAN  , 

4  18HFEB  MARCH  TOTAL,) 

4  F ORMA T(1X,A10, IX, 14(16, 1X),I7) 

5  FORMAT  <  12X,  14  (6H - ,  IX), 7H - ,/, 

4  5X , 7HT0TAL  , 14 < 16, IX ) , 17 ) 

11  FORMAT  ( 2X » 37HC ARGO  FLOW  CAPACITY  HAS  BEEN  REACHED!, /, 

4  2X » 41HCARG0  FLOW  PROJECTION  CAN  NOT  BE  REACHED.) 

C 

DO  12  IA-1 » 15 
ITFL0W< I A ) -0 
ICFL0W<IA)-0 

12  CONTINUE 
WRITE<0,1> 

WRITE (6,2) 

DO  6  MN-  1,14 
DO  7  MC-  1,5 

I C AGO < MC , MN ) -  CARF<3,MC,Ik>*  CAG0CM(4,MN)4  0.5 
7  CONTINUE 

I C AGO < 6, HN)-  CARF ( 3 , 6, IR ) *  CAGOCM < 3 , MN ) 4  0.5 
ICAG0( 7 ,MN  )  -  CARF<3»7,1K>*  CAGOCM ( 1 ,MN  >4  0.5 
ICAGO< 8 , MN > •  CARF ( 3 « 8, IR  >  t  CAGOCM< 2, MN ) 4  0.5 


*040 


DO  *040  NC-  *« >3 

ICAOOIMC.NN)*  CA*F<3.NC.IN>»  CAOOCN<3.NN>+  O.S 
CONTINUE 

DO  *070  NC«  14.15 

ltAOO<NC.HN>-  CMtFO.MC.IN)*  C  MOOCH  <  4  •  *N<  >  ♦  O.S 


*070  CONTINUE 
4  CONTINUE 

SO  *071  NC-  1.13 
DO  *0*0  NN-  1.14 

ITFLbU<HC>-  ITFtOU<NC>4  ICAOOOC.HN) 

CONTINUE 

UNI  |£<0.4)1CAO<HC> .  <  ICM00<HC.MN>.HH-4, 14 >  .  <  ICAOOiMC.MN)  . 
*  HN-1.3>.ITFL0U<HC> 

*071  CONTINUE 

DO  *400  HN-  1.14 


DO  *401  MC-  1.13 

ICFLOUIMN)-  ICFL0U(NN)4  ICA60<NC.MN> 

*401  CONTINUE 

ICFLOUUS)-  ICFL0W(13>+  ICFLUU(NN) 

*400  CONTINUE 

UftITEIS.S)  <ICFLOU<I>.I-4.14).<ICFLOU<I>.I-1.J>.ICFLOU<1S> 
14  CONTINUE 

UNITE  <0.2400) 

2400  F0RH4T  <4</>> 

C 


RETURN 

END 


APPENDIX  C 
DATA  FILE  LISTING 


C-l 


SOO  DATA  FILE 


1*1  CONOGOf  DATA  FILE  IDENTIFIER 

10  MAX  I MUM  VESSEL  CLASS 

1 *0*0*0  SEASON  EXTENSIONS 

1*0*0  LOCKING  TINES  <  NORMAL  *  LOU*  HIGH) 

0.80*0. 80*0. 80*0. 80*0. 80*0,00*0. 00*0. 00*0. 00*0. 00  SHIP  UTILIZATION  FACTORS 

1.00*1.00*00.00*00.00*00.00*00.00*00.00*00.00  FACTOR*  CALF AC 

FLEET  NIX  SHIP  BUILDING  FACTORS 


ORE 

COAL 

STONE 

GRAIN 

UDULK 

UCARGO 

CLASS 

0.00 

0.00 

0.00 

0.00 

0.30 

0.20 

4 

0.  10 

0.10 

0.40 

0. 10 

0.60 

0.00 

3 

0.00 

0.03 

0.00 

0.20 

0.00 

0.80 

6 

0.20 

0.40 

0.60 

0.  /O 

0.10 

o.oo 

7 

0.10 

0.15 

0.00 

0.00 

0.00 

0.00 

8 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

9 

0.60 

0.30 

0.00 

0.00 

0.00 

0.00 

10 

CARRYING  CAPACITY  BY  SHIP  CLASS  (IN  SHORT  TUNS) 

4  3  6  7  S  9  10 

09300.  21000.  15000.  27000.  28000.  45000.  60000.  IRON  ORE  -  S TUNE 

06700.  14000.  15000.  21000.  24000.  28000*  60000.  COAL  -  GRAIN 

08700.  14000.  15000.  21000.  24000.  28000.  60000.  BULK  -  GENERAL  CARGO 

VALIDATION  TRANSIT  DISTRIBUTION  FACTORS 


JAN 

FEB 

NAR 

APR 

APR 

NAY 

JUN 

JLT 

AUG 

SEP 

OCT 

NOV 

DEC 

DEC 

.007 

.000 

.000  . 

023 

.048 

.  i  20 

.  127 

.  131  . 

123  . 

131 

.127 

.101 

.037 

.025 

.007 

.000 

.000  . 

023 

.048 

.120 

.  127 

.131  . 

123  . 

lil 

.  127 

.  101 

.037 

.025 

.007 

.000 

.000  . 

023 

.048 

.  120 

.  127 

.iJi  . 

123  . 

131 

.127 

•  101 

.037 

.025 

CARGO 

PROJECTIONS  l««  1V78  6**« 

(SHORT 

TONS 

✓ 

YEAR) 

DOWN BOUND 


17401. 

133. 

3430. 

1609. 

1282. 

0.0 

6/699. 

76. 

2846. 

141. 

1  • 

41. 

1702. 

5/6. 

257. 

«t«C 

1970 

(BBS 

UP BOUND 
0.0 

0.0 

0.0 

0.0 

0.0 

1993. 

178. 

42. 

4017. 

1004 

H07 . 

459. 

83. 

690. 

46. 

BBBB 

1903 

BBBB 

UOUNBOUND 

22917. 

62. 

5084. 

1408. 

1298. 

0. 

73007. 

01. 

4685. 

151. 

1. 

49. 

1900. 

623. 

284. 

BBBB 

1 V85 

BBBB 

UP BOUND 
0. 

0. 

0. 

0. 

0. 

2060. 

197. 

40. 

6551. 

1149 

948. 

504. 

101. 

742. 

91. 

mi 

1VV0 

BBBB 

UOUNBOUND 

25731 « 

66. 

6566. 

1211. 

1311. 

0. 

80554. 

97. 

11702. 

158. 

1. 

55. 

2042. 

639. 

299. 

mt 

1990 

BBBB 

UP BOUND 

0. 

0. 

0. 

0. 

0. 

2307. 

224. 

52. 

5418. 

1199 

1031. 

337. 

114. 

781. 

73. 

MM 

2000 

BBBB 

UOUNBOUND 

23171. 

73. 

7539. 

1139. 

1337. 

0. 

90495. 

113. 

17338. 

174. 

2. 

70. 

2376. 

739. 

330. 

BBBB 

2000 

BBBB 

UPBOUND 

0. 

0. 

0. 

0. 

0. 

2543. 

254. 

61. 

6858. 

1306 

1330. 

618. 

148. 

867. 

/6 « 

MM 

2010 

BBBB 

UOUNBOUND 

27033. 

77. 

0407. 

1244. 

1364. 

0. 

104196. 

134. 

19749. 

192. 

2. 

87. 

2738. 

027. 

365. 

m« 

2010 

BBBB 

UPBOUND 

0. 

0. 

0. 

0. 

0. 

2684. 

292. 

71. 

7511. 

1423 

1676. 

709. 

185. 

V61  • 

94. 

«««« 

2020 

BBBB 

UOUNBOUND 

28978. 

79. 

9167. 

1371. 

1391. 

0. 

118656. 

159. 

17951. 

211. 

2. 

110. 

3202. 

927. 

399. 

(MB 

2020 

BBBB 

UPBOUND 

0. 

0. 

0. 

0. 

0. 

3302. 

332. 

02. 

0230. 

1553 

2090. 

817, 

231  • 

1066. 

75. 

(MB 

2030 

BBBB 

DO  UNBOUND 

31635. 

80. 

9926. 

1497. 

1419. 

0. 

134166. 

180. 

1/991. 

233. 

2. 

140. 

3718. 

,4039. 

443. 

(MB 

2030 

BBBB 

UPBOUND 

0. 

0. 

0. 

0. 

0. 

3780. 

375. 

96. 

9045. 

1690. 

2627. 

943. 

289. 

1183. 

120* 

BBBB 

2040 

BBBB 

C-2 


DOWN BOUND 

34301.  82. 

10487. 

1620. 

1448. 

0. 

190710. 

224. 

18036. 

257. 

2.  180. 

4317. 

1144. 

4V1  • 

**** 

2040 

*8*8 

UP BOUND 

0.  0. 

0. 

0. 

0. 

4328. 

429. 

111. 

9942. 

1898 

3291.  1097. 

341. 

1313. 

197. 

I««t 

2090 

88*8 

00 UN BOUND 

36894.  84. 

12207. 

1769. 

1462. 

0. 

168055. 

266. 

16089. 

283. 

3.  234. 

9018. 

1309. 

943. 

I««« 

2090 

88*8 

UP BOUND 

0,  0. 

0. 

0. 

0. 

4999. 

4/8. 

129. 

10939. 

2035 

4123.  1279. 

491. 

1496. 

199. 

HOURS  AVAILABLE 

FOR  LOCKING  OPERATIONS  1 

BY  N0N1H 

JAN  FEB  HAR 

APR  APR  NhY 

JUN  JUL 

AUG 

SEPT  OCT 

NOV 

DEC  DEC 

23.8  23.9  23.9 

23.7  23. 

7  23.7 

23.8  23.9 

24.0 

23. 

8  23.8 

23.9 

23.9  23.9 

LOCKING  TINE  IN  NINUTES  BY  SHIP  CLASS 


4  5 

6 

7 

8 

V 

10 

SHIP  CLASS 

0039.  0042. 

0042. 

0045. 

0048. 

0000. 

0000. 

DOWN 

FOR 

SABIN-DAVIS  LOCK 

0038.  0041. 

0042. 

0045. 

0046. 

0000. 

0000. 

UP 

0073.  0075. 

0074. 

0077. 

0078. 

0101. 

0106. 

DOWN 

FOR  NACARTHUR-POE 

LOCK 

0068.  0065. 
LUM  TINES 

0065. 

0061. 

0068. 

0073. 

0009. 

UP 

4  5 

6 

7 

8 

9 

10 

SHIP 

CLASS 

0064.  0074. 

0072. 

0075. 

0077. 

0096* 

0102. 

DU  UN 

FOR 

NACARTHUR-POE 

LUCK 

0056.  0063. 
HIGH  TINES 

0063. 

0058. 

0067. 

0069. 

0084. 

UP 

4  5 

6 

7 

8 

9 

10 

bHIP 

CLASS 

0080.  0076. 

0076. 

0079. 

0079. 

0106. 

0110. 

DUUN 

FOR 

NACARTHUR-POE 

LUCK 

00/8.  0067. 

0067. 

0064. 

006V. 

0077. 

0094. 

UP 

LOCKING  TINE  STANDARD  DEVIATION  IN  NINUTES  BY 

SHIP  CLASS 

4  5 

6 

7 

8 

9 

10 

SHIP 

CLASS 

002.8  003.2 

002.7 

002.6 

003.0 

000.0 

000.0 

DOUN 

FOR 

SAB IN- DAVIS  LOCK 

002.5  002.8 

004.0 

003.S 

002.2 

000.0 

000.0 

UP 

006.3  006.7 

006.2 

006.3 

003.5 

006.3 

005.9 

009. 0  009.3 

009.3 

009.7 

005.3 

005.7 

007.3 

VALIDATION  BIAS  TRAFFIC  FACTORS 
L.AP  L.AP  E.DC  L.UC 
00. SO  00.20  00.60  00.80 
TURNBACK  TINE  IN  NINUTES  BY  LOCK 
HAC  POE  S-0 
0000.  0000.  0000. 

SHIP  COST  ((/HOUR)  BY  SHIP  CLASS 

4  3  6  7  8  9  10  SHIP  CLASS 

000373.  000396.  000423.  000435.  000423.  000533.  000579.  OPERATING  COST 

000287.  000356.  000397.  000438.  000493.  000630.  000767.  CAPITAL  COST 

NON- COMMERCIAL  CRAFT  DAILY  ARRIVAL  -  ICE  LOCKAGES 

JAN  FEB  MAR  APR  APR  MAT  JUN  JUL  AUO  SkP  OCT  NOV  DEC  DEC 

00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0 

02.0  03.0  03.0  01. 0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  00.0  DN 

LOADING  FACTOR  -  FLOAD 
0  C  S  G  OB  GC 
i.O  1.0  1.0  1.0  0.83  .85 
ONE  WAT  DISTANCE  (U1STN) 


ORE 

COAL 

STONE 

GRAIN  0  BULK 

G  CARGO 

00824. 

00774. 

00790. 

01470.  01149. 

00875. 

00000. 

00782. 

00549. 

00000.  01077. 

00782. 

LOADING  RATE 

<FILL> 

ORE 

COAL 

STONE 

GRAIN  0  BULK 

G  CARGO 

02800. 

09000. 

02800. 

01481.  00600. 

00150. 

4 

02000. 

09000 . 

02800. 

01401.  00600. 

00150. 

5 

02800. 

09000. 

02000. 

01481.  00600. 

00150. 

6 

02800. 

09000. 

02800. 

01401.  00600. 

00150. 

7 

02800. 

09000 . 

02800. 

01401.  00600. 

00150. 

8 

02800. 

09000. 

02800. 

01481.  00600. 

00190. 

9 

02800. 

09000. 

02000. 

01481.  00600. 

00150. 

10 

UNLOADING  RATE  <EHPTY> 

ORE 

COAL 

STONE 

GRAIN  0  BULK 

G  CARGO 

02800. 

01846. 

00700. 

01266.  00143. 

00150. 

4 

02000. 

01648. 

00700. 

01266.  00143. 

00150. 

5 

11200. 

01848. 

06720. 

01266.  00143. 

00150. 

6 

11200. 

01848. 

06720. 

01266.  00143. 

00 150. 

7 

11200. 

06720. 

06720. 

01266.  00143. 

00150. 

8 

11200. 

06720. 

06720. 

01266.  00143. 

00150. 

9 

11200. 

06720. 

06720. 

01266.  00143. 

00150. 

10 

OPERATING  HOURS  PER  MONTH  PER  SLASUN  EXTENSION  (HRS) 


JAN 

FEB 

MAR 

APR 

APR 

,NAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

OEC 

DLL 

000. 

000. 

000. 

356. 

356 . 

/35. 

714. 

741. 

744. 

714. 

738. 

717. 

3.0. 

384. 

ORE  EXT  1 

000. 

000. 

000. 

356. 

356. 

735.  714. 

741. 

744. 

714. 

738. 

717. 

3.0. 

384. 

COAL 

000. 

000. 

000. 

356. 

356. 

735.  714. 

741. 

744. 

714. 

738. 

717. 

3.0. 

384. 

STONE 

000. 

000. 

000. 

356. 

356. 

735.  714. 

741. 

744. 

714. 

738. 

717. 

3.0. 

384. 

GRAIN 

000. 

000. 

000. 

356. 

356. 

735. 

714. 

741. 

744. 

714. 

738. 

717. 

3.0. 

304. 

U  BULK 

000. 

000. 

000. 

356. 

356. 

735.  714. 

741. 

744. 

714. 

738. 

717. 

3.0. 

304. 

G  CARGO 

738.  000.  000.  33*.  33*.  733.  714.  741. 

730.  000.  000.  33*.  33*.  733.  714.  741. 

000.  000.  000.  33*.  33*.  733.  714.  741. 

000.  000.  000.  35*.  33*.  735.  714.  741. 

000.  000.  000.  35*.  35*.  735.  714.  741. 

000.  000.  000.  35*.  33*.  735.  714.  741. 

730.  6*9.  000.  33*.  33*.  735.  714.  741. 

730.  6*9.  000.  33*.  33*.  735.  714.  741. 

OOO.  000.  000.  33*.  33*.  735.  714.  741. 

000.  OOO.  000.  33*.  33*.  733.  714.  741. 

000.  OOO.  OOO.  35*.  33*.  735.  714.  741. 

OOO.  OOO.  OOO.  35*.  33*.  735.  714.  741. 

730.  669 .  741.  33*.  33*.  733.  714.  741. 

730.  669.  741.  33*.  33*.  735.  714.  741. 

OOO.  OOO.  OOO.  35*.  33*.  733.  714.  741. 

OOO.  OOO.  OOO.  33*.  45*.  733.  714.  741. 

OOO.  OOO.  OOO.  35*.  33*.  733.  714.  741. 

OOO.  OOO.  OOO.  33*.  33*.  733.  714.  741. 

VESSEL  SPEED  BY  MONTH  AND  CLASS  (VSA) 

JAN  FEB  MAR  APR  APR  MAT  JUN  JUL 

00.0  00.0  00.0  13.0  13.9  13.9  13.9  13.9 

00.0  00.0  00.0  13.1  13.9  13.9  13.9  13.9 

00.0  00.0  00.0  13.9  14.7  14.7  14.7  14.7 

00.0  00.0  00.0  14.0  14.7  14.7  14.7  14.7 

00.0  00.0  00.0  14.2  14.9  14.9  14.9  14.9 

00.0  00. Q  00.0  14.3  14.9  14.9  14.9  14.9 

00.0  00.0  00.0  14.3  14.9  14.9  14.9  14.9 

11.*  00.0  00.0  13.0  13.9  13.9  13.9  13.9 

12.3  00.0  00.0  13.1  13.9  13.9  13.9  13.9 

13.2  00.0  00.0  13.9  14.7  14.7  14.7  14.7 

13.7  00.0  00.0  14.0  14.7  14.7  14.7  14.7 

13.9  00. J  00.0  14.2  14.9  14.9  14.9  14.9 

14.1  00.0  00.0  14.5  14.9  14.9  14.9  14.9 

14.1  00.0  00.0  14.5  14.9  14.9  14.9  14.9 

11.*  09.3  00.0  13.0  13.9  13.9  13.9  13.9 

12.5  10.1  00.0  13.1  13.9  13.9  13,9  13.9 

13.2  10.7  00.0  13.9  14.7  14.7  14.7  14.7 

13.7  11.9  00.0  14.0  14.7  14.7  14.7  14.7 

13.9  12.7  00.0  14.2  14.9  14.9  14.9  14.9 

14.1  12.7  00.0  14.3  14.9  14.9  14.9  14.9 

14.1  12.7  00.0  14.5  14.9  14.9  14.9  14.9 

Jl.*  09.3  09.9  i 3. 0  13.9  13.9  13.9  13.9 

12.3  10.1  10.5  13.1  13.9  13.9  13.9  13.9 

13.2  10.7  11.1  13.9  14.7  14.7  14.7  14.7 

13.7  11.9  12.0  14.0  14.7  14,7  14.7  14.7 

13.9  12.0  12.2  14.2  14.9  14.9  14.9  14.9 

14.1  12.7  13.0  14.5  14.9  14.9  14.9  14.9 

14.1  12.7  13.0  14.5  14.9  14.9  14.9  14.9 

RELATIVE  DEMAND  INDEXES  (DIN) 

JAN  FEB  MAR  E.AP  L.AP  MAY  JUN  JLY 
00.0  00.0  00.0  01.0  04.2  10.0  10.0  10.0 

04.0  00.0  00.0  01.0  04.2  10.0  10.0  10.0 

07.0  06.0  00.0  01.8  04.2  10.0  10.0  10.0 

07.0  07.0  07.0  00.0  09.0  10. 0  10.0  10.0 

VESSEL  RETIREMENT  ENACTIONS  <PU> 

4  5  *  7  0  9  10 

0.00  0.00  0.00  0.00  0.00  0.00  0.00 
0.36  0.30  0.20  0.00  0.00  0.00  0.00 
1.00  O.SO  0.30  0.00  0.00  0.00  0.00 
1.00  0.80  0.30  0.10  0.20  0.00  0.00 
1.00  0.85  0.80  0.20  0.30  0.00  0.00 
1.00  0.93  0.05  0.30  0.80  0.00  0.20 
1.00  1.00  0.95  0.00  0.92  0.00  0.30 
1.00  1.00  1.00  0.03  1.00  1.00  0.50 
1.00  1.00  1.00  0.90  1.00  1.00  0.60 
BASE  YEAR  FLEET  (BASLE f> 

4  3  *  7  0  9  10 

0.00  30.10  0.00  7.30  6.60  1.00  8.00 

1.40  *.30  1.00  0.30  0.00  0.00  1.00 

0.60  0.90  0.00  0.00  0.00  0.00  0.00 

1.40  7.30  *.90  14.60  0.00  0.00  0.00 

0.00  1.10  0.00  3.00  0.00  0.00  0.00 

2.70  0.00  3.80  0.00  0.00  0.00  0.00 

BIASED  TRAFFIC  FACTOR  (BTF) 

JAN  FEB  MAR  E.AP  L.AP  MAY  JUN  JLY 
0.00  0.00  0.00  0.30  0.20  0.00  0.00  0.00 
0.03  0.00  0.00  0.30  0.20  0.00  0.00  0.00 
0.00  0.05  0.00  0.30  0.20  0.00  0.00  0.00 
0.00  0.00  0.00  0.00  0.00'  0.00  0.00  0.00 
EXTENDED  SEASON  DISTRIBUTION  FRACTIONS 
J-l  F-2  H«3 

1.0000  0.0000  0.0000  1SN2 

0.5000  0.3000  0.0000  ISN3 

0.3333  0.3333  0.3333  ISN4 


744. 

714. 

730.  7X7.  3,0. 

304. 

ORE  EXT 

2 

744. 

714. 

730.  717.  3,0. 

304. 

CUAL 

744. 

714. 

730.  717.  3,0. 

304. 

STONE 

744, 

714. 

730.  717.  3,0. 

384. 

GRAIN 

744. 

714. 

730.  717.  3,0. 

304. 

U  BULK 

744. 

714. 

730.  717.  3,0. 

304. 

G  CARGO 

744. 

714. 

730.  717.  3,0. 

384. 

ORE  EXT 

3 

744. 

714. 

730.  717.  3,0. 

304. 

COAL 

744. 

714. 

730 .  717.  3,0. 

384. 

STONE 

744. 

714. 

730.  717.  3,0. 

384. 

GRAIN 

744. 

714. 

730.  717.  3,0. 

304. 

0  BULK 

744, 

714. 

730.  717.  3,0. 

304. 

0  CARGO 

744. 

714. 

730.  717.  3,0. 

384. 

ORE  EXT 

4 

744. 

714. 

730.  717.  3,0. 

384. 

COAL 

744, 

714. 

730.  717.  3,0. 

304. 

STONE 

744. 

714. 

730.  717.  3,0. 

304. 

GRAIN 

744. 

714. 

730.  717.  3,0. 

384. 

0  BULK 

744. 

714. 

730.  717.  1M. 

304. 

G  CARGO 

AUG 

SEP 

OCT  NOV  DEC  DEC 

13.9 

13.9 

13.9  13.9  13.9 

13.6 

4  EXT 

1 

13.9 

13.9 

13.9  13.9  13.9 

13.8 

3 

14.7 

14.7 

14. 7  14.7  14.7 

14.6 

* 

14.7 

14.7 

14.7  14.7  14.7 

14.6 

7 

14.9 

14,9 

14.9  14*9  14.9 

14.0 

8 

14.9 

14.9 

14.9  14.9  14.9 

14.0 

9 

14.9 

14.9 

14.9  14.9  14.9 

14.8 

10 

13.9 

13.9 

13.9  13.9  13.9 

13.6 

EXT 

2 

13.9 

13.9 

13.9  13.9  13.9 

13.8 

14.7 

14.7 

14.7  14.7  14.7 

14.6 

14.7 

14.7 

14.7  14.7  14.7 

14.6 

14.9 

14.9 

14.9  14.9  14.9 

14.8 

14.9 

14.9 

14.9  14.9  14.9 

14.0 

14.9 

14.9 

14.9  14.9  14.9 

14.8 

13.7 

13.9 

13.9  13.9  13.9 

13.6 

EXT  3 

13.9 

13.9 

13.9  13.9  13.9 

13.0 

14.7 

14.7 

14.7  14.7  14.7 

14.6 

14.7 

14.7 

14.7  14.7  14.7 

14.6 

14.9 

14.9 

14.9  14.9  14.9 

14.8 

14.9 

14.9 

14.9  14.9  14.9 

14.0 

14.9 

14.9 

14.9  14.9  14.9 

14.8 

13,9 

13.9 

13.9  13.9  13.9 

13.6 

EXT 

4 

13.9 

13.9 

13.9  13.9  13.9 

13.8 

14.7 

14.7 

14.7  14.7  14.7 

14.6 

14.7 

14.7 

14.7  14.7  14.7 

14.6 

14.9 

14.9 

14.9  14.9  14.9 

14.8 

14.9 

14.9 

14. V  14.9  14.9 

14.0 

14.9 

14.9 

14.9  14.9  14.9 

14.8 

AUO  SEP  UCT  NOV  E.DC  L.DC 

10.0  10.0  10.0  10.0  03.2  02.1  EXT  1 

10.0  10.0  10.0  10.0  08.0  07.0  EXT  2 

10.0  10.0  10.0  10.0  08.0  07.0  EXT  3 

10.0  10.0  10.0  10.0  08.0  07.0  EXT  4 

YEAR 

1V78 

1983 

1990 

2000 

2010 

2020 

2030 

2040 

2030 


URE 
CUAL 
bl  ONE 
GRAIN 
0  BULK 
G  CARGO 

AUO  SLP  OCT  NOV  E.DC  L.DC 

0.00  0.00  0.00  0.00  0.60  0.80  EXT  1 

0.00  0.00  0.00  0.00  0.10  0.10  EXT  2 

0.00  0.00  0.00  0.00  0.10  0.10  EXT  3 

0.00  0.00  0.00  0.00  0.10  0.10  EXT  4 


C-4 


CAPACITY  INCREASE  WITH  DEPTH  (SHORT  TONS  PER  YEAR) 


4 

3 

.  7  8  9  10 

0.00 

91.80 

.1.80  113.10  115. .0  1.7.10  207.10 

1 

CAPACITY  EXPANSION?  1»Y£S.O«NO 

1 

CAPAC11Y  EXPANSION  MEASURE 

0*073 

0.073 

LOCKING  TINE 

TRAVELING  REVELS 

0.023 

0.023 

REDUCTION  FACTORS 

INCREASE  SHIP  SPEED 

0.033 

0.010 

FA8TER  DUMP/FILL 

0.043 

0.043 

TRAFFIC  CONTROL 

0.130 

3 

0.130 

LOCKING  TINE  REDUCTION  SELECTOR 

MAXI HUN  UTILITY 

1 

CAPACITY  EXPANSION?. 

i 

INCREASE  ALLOWABLE  DRAFT 

32.0 

NEW  DRAFT 

0 

DEEPER  DRAFT  AND  LARGER  SHIPS 

0 

CAPACITY  EXPANSION  MEASURE  2 

2 

BUILD  LARGER  LOCKS 

11 

MAXIMUM  SHIP  SIZE 

0.80  0. 

.80 

ZBHF 

FLEET  MIX  BUILDING  FACTORS 


ORE 

COAL 

STONE 

GRAIN 

OfiULK 

UCARGO 

0.00 

0.00 

0.00 

o.oo 

0.30 

0.10 

4 

0.10 

0.03 

0.40 

0.03 

0.60 

0. 10 

5 

0.00 

0.03 

0.00 

0. 10 

0.00 

0.30 

6 

0.00 

0.10 

0.60 

0.30 

0.10 

0.00 

7 

0.10 

0.03 

0.00 

0.00 

0.00 

0.50 

8 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

V 

0. 40 

0.43 

0.00 

0.60 

0.00 

0.00 

10 

0.20 

0. 10 

0.00 

0.20 

0.00 

0.00 

11 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

12 

SHIP  CARRYING  CAPACITIES 

11 

12 

72000 

.0  VOOOO.O 

ORE 

72000 

.0  VOOOO.O 

COAL 

72000 

.0  90000.0 

STONE 

72000 

.0  90000.0 

GRAIN 

72000 

.0  VOOOO.O 

0 

BULK 

72000 

.0  VOOOO.O 

G 

CARGO 

LOCKING  TIME  (NORMAL) 

4 

3 

6 

7 

8 

9 

10 

ll 

12 

73.0 

75.0 

74.0 

77.0 

78.0 

0.0 

0.0 

0*0 

0.0 

DN-SABIN 

48.0 

65.0 

65.0 

61.0 

68.0 

0.0 

0.0 

o.o 

0.0 

UP 

73.0 

75.0 

74.0 

77.0 

78.0 

101.0 

106.0 

113.0 

126.0 

DN-MACARTHURrPOEi 

48.0 

65.0 

63.0 

61 .0 

68.0 

73.0 

89.0 

98.0 

113.0 

UP  DAVIS 

LOCKING  TIMES  (LOW) 

4 

5 

4 

7 

8 

V 

10 

l‘> 

12 

73.0 

75.0 

74.0 

77.0 

78.0 

0.0 

0.0 

0.0 

0.0 

DN-SABIN 

48.0 

45.0 

45.0 

61.0 

68.0 

0.0 

0.0 

o.o 

0.0 

UP 

73.0 

75.0 

74.0 

//.  0 

78.0 

101.0 

104.0 

113.0 

126.0 

DN-MACARTHUNtPOE: 

4b. 0 

*5.0 

45.0 

61.0 

6b. 0 

73.0 

89.0 

98*0 

113.0 

UP  DAVIS 

LOCKING  TIMES  (HIGH) 

. 

5 

6 

/ 

b 

9 

10 

11 

12 

73.0 

75.0 

74.0 

77.0 

70.0 

0.0 

0.0 

o.o 

0.0 

DN-SABIN 

68.0 

45.0 

63.0 

61.0 

68.0 

0.0 

0.0 

o.o 

0.0 

UP 

73.0 

75.0 

74.0 

77.0 

78.0 

101.0 

106.0 

115.0 

126.0 

DN-MAC ARTHUR  r POE 

48.0 

45.0 

63.0 

61.0 

68.0 

73.0 

8V.0 

V0.O 

113.0 

UP  DAVIS 

LUCKING  TIME  STANDARD  DEVIATION 

4 

3 

6 

7 

8 

9 

10 

It 

12 

4.3 

6.7 

6.2 

6.3 

3.3 

0.0 

0.0 

0.0 

0.0 

DN 

V.O 

9.3 

9.3 

V.7 

5.3 

0.0 

0.0 

o.o 

0.0 

UP 

4.3 

4.7 

6.2 

6.3 

3.3 

6.3 

5.5 

5.1 

?;.i 

DN 

V.O 

9.3 

9.3 

9.7 

3.3 

3.7 

7.3 

7.3 

7.3 

UP 

LOADING  RATES 


ORE 

COAL 

b  1  ONE 

GRAIN 

OBUi.K 

GCAROO 

CLASS 

2800. 

9000. 

2800. 

1481 . 

600. 

ISO. 

11 

2800.  9000.  2800. 

UNLOADING  RATES 

1481. 

600. 

130. 

12 

ORE 

COAL 

STONE 

GRAIN 

08ULK 

GCARGO 

CLASS 

11200. 

6720. 

6/20. 

1266. 

143. 

150. 

11 

1  1200 

>  6720. 

6720. 

1266. 

143. 

130. 

12 

VESSEL  SPEED 


JAN  FEB 

MAR  1APR  2 APR 

MAY 

JUN 

JUL 

AUG 

SEP 

UCT 

NOV 

1DEC 

2DEC 

0.0  0.0 

0.0  14.5  14.9 

14.9 

14.9 

14.9 

14.9 

14.9 

14.9 

14.9 

14.9 

14.8 

11 

0.0  0.0 
RETIREMENT 

0.0  14.5  14.9 

PERCENTAGES 

14.9 

14.9 

14.9 

14.9 

14.9 

14. V 

14.9 

14.9 

14.8 

12 

11 

12 

0.0 

0.0 

1978 

0.0 

0.0 

1983 

0.0 

0.0 

1990 

0.0 

0.0 

2000 

0.0 

0.0 

2010 

o.o 

0.0 

f  2020 

0.0 

0.0 

2030 

0.0 

0.0 

2040 

0.1 

0.0 

2050 

CAPACITY  INCREASE  WITH  DEPTH 


II  12 


228. .0  250.00 


CAPACITY  EXPANS I ONT 


C-5 


WELLAND  DATA  FILE 


1>2  GONOGO.  DATA  FILE  IDENTIFIED 

7  HAXINUH  VESSEL  CLASS 

O.tfOiO  SEASON  EXTENSIONS 

l.OfO  LOCKING  TINES  ( NilNHAL  r  LOW*  HIGH) 

0. 70.0. 70.0. 70,0. 70.0. 70.0. 70.0. 70,0./0,0. 70  SHIP  UTILIZATION  FACTORS 

1.00. 3. OO.OS. 00. 01. 17. 10.70. 00. 00. 00.00. 00. 00  FACTOR. CALFAC • STSFAC • STSA0O*  8YSTCN 

fleet  nix  snip  duilding  factors 


ORE 

COAL 

STONE 

GRAIN 

UBULK 

UCARGO 

CLA6S 

0.00 

0.00 

0.00 

0.00 

0 .20 

0.20 

4 

0.20 

0.10 

0.20 

o.os 

0.30 

0.00 

5 

0.00 

0.10 

0.10 

0*  35 

0.30 

0.00 

6 

0.00 

0.00 

0.70 

0.60 

0.20 

0.00 

7 

carrying  capacity  by  snip  class  un  short  tons) 

4  5  6  7 

09300 .  21000.  13000.  27000.  IRON  ORE  -  STONE 
08700.  14000.  13000.  21000.  COAL  .  GRAIN 
08700.  14000.  1S000.  21000.  OTHER  BULK  .  GENERAL  CARGO 
VALIDATION  TRANSIT  DISTRIBUTION  FACTORS 


JAN 

FEB 

HAY 

APR 

APR 

NAY 

JUN  JLY  AUG  SEP  OCT 

NOV 

PEC 

DEC 

.000 

.000 

.000 

.030 

.050 

.130 

.120  .120  .120  . 120  .120 

.120 

.050 

•  020 

.000 

.000 

.000 

.040 

.050 

.130 

.120  .120  .120  .120  .120 

.120 

.050 

•  010 

.000 

.000 

.000 

.000 

.000 

.000 

.000  .000  .000  .000  .000 

.000 

.000 

.000 

CARGO  PROJECTIONS  (<*«  1978  (*<«  (SHORT  TUNS  /  YEAR) 


DOUNBOUND 

16022. 

2791. 

2994. 

6666. 

1202. 

110. 

4V1V. 

/2*. 

5906. 

1217, 

1. 

1630. 

2755. 

990. 

116. 

«m 

1970  **S*  * 

UP BOUND 

0. 

0. 

6. 

0. 

0. 

46. 

11219. 

0. 

0. 

613. 

480. 

427. 

2335. 

1195. 

3590. 

ms 

1905 

sm 

DOUNBOUND 

20701 • 

2015. 

4449. 

77 52 . 

1290. 

112. 

4055. 

/54. 

5615. 

1322 

1. 

1825. 

3234. 

1000. 

204. 

ISSS 

1985 

ssss 

UPBOUND 

0. 

0. 

0. 

0. 

0. 

49. 

12000. 

0. 

0. 

664. 

600. 

487. 

2375. 

1303. 

0447. 

sm 

1990 

ssss 

DUMNBOUND 

DOWN BOUND 

33770.  2704.  10439*  9109.  1442.  271.  9043.  2490.  3744.  2492. 

J.  4394.  9993.  2404.  740. 

***«  2030  «»** 

UP BOUND 

O.  0.  23.  0.  0.  119.  29079.  O.  0.  1222. 

2991.  1471.  2944.  2917.  19201. 

HUURS  AVAILABLE  FOR  LOCKING  UPERATIONS  BY  MONTH 
JAN  FEB  HAM  APR  APR  HAY  JUM  JUL  AUG  SEPT  OCT  NOV  DEC  UEC 
23.4  23.4  23.4  23.2  23.2  23.4  23.3  23.3  23.4  23.3  23.2  23.2  23.4  23.4 
LUCKING  TINE  IN  MINUTES  BY  SHIP  CLASS 
4347  SHIP  CLASS 
0033.  0033.  0043.  004'/.  DOWN  CONSTRAINING  LOCK 
0039.  0039.  0047.  0049.  UP 

0034  .  0034  .  0037  .  0041.  DOWN  NUN-CONSTRAINING  LUCK 
0034.  0034.  0040.  0041.  UP 
LOU  TINES 

4347  SHIP  CLASS 
0033.  0033,  0044.  0044.  DOWN  CONSTRAINING  LUCK 
0039.  0039.  0044.  004'/.  UP 

0034.  0034.  0039.  0040.  DOWN  NON- CONSTRAINING  LUCK 

0034.  0034.  0039.  0039.  UP 
NIGH  TINES 

4347  SHIP  CLASS 
0034.  0034.  0044.  0048.  U09N  C0NSTA1N1NG  LUCK 
0039.  0039.  0048.  0049.  UP 

0033.  0033.  0040.  0043.  GOWN  NON-CONSTRAINING  LOCK 
0033.  0033.  0041.  0041.  UP 

LUCKING  TINE  STANDARD  DEVIATION  IN  MINUTES  BY  SHIP  CLASS 
4347  SHIP  CLASS 
002.7  002.7  003.3  004.1  UUWN  CUNSTRAINING  LOCK 
002.9  002.9  003.8  004.1  UP 

002.7  002.7  002.8  003.0  DOWN  NON-CONSTRAINING  LUCK 
002.7  002.7  002.8  003.0  UP 
VALIDATION  BIAS  TRAFFIC  FACTORS 
fc" . AP  L.AP  E.OC  L.UC 
00.40  00.40  00.70  00.80 
TURNBACK  TIME  IN  MINUTES  BY  LUCK 
CUN.  NON-C 
OOOO.  0000.  OOOO. 

SHIP  COST  (4/HOUR)  BY  SHIP  CLASS 

4  3  4  /  8  9  10  II  SHIP  CLASS 

000373.  000394.  000234.  000433.  000423.  000333.  000379.  000432.  OPERATING -COST 
000287.  000334.  000238.  000438.  000493.  000430.  000747.  000877.  CAPITAL  COST 
NOH-COHHERCIAL  CRAFT  DAILY  ARRIVAL  .  ICC  LOCKAGES 

JAN  FEB  NAR  APR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC  DEC 
00.0  00.0  00.0  00.0  00.0  00.0  00.5  01.0  01.0  00.5  00.0  00.0  00.0  00.0 
02.0  03.0  03.0  01.0  00.0  00.0  00.3  01.0  01.0  00.3  00.0  00.0  00.0  00.3 
LOADING  FACTOR  (FLOAD) 

U  C  S  G  OB  GC 
1.0  1.0  1.0  1.0  0.83  .83 
ONE  WAY  DISTANCES! D1STN ) 

URE  COAL  STONE  GRAIN  0  BULK  G  CARGO 

01023.  00237.  00187.  01412.  00342.  01080.  ON 

00388.  00389.  00389.  01043.  00389.  00484.  UP 

l.UADING  RATE  (FILL) 

URE  COAL  STONE  GRAIN  U  BULK  G  CARGO 

02800.  09000.  02800.  01481.  00400.  00150. 

02900.  09000.  02800.  01481.  00600.  00150. 

02800.  09000.  02800.  01481.  00600.  00150. 

02800.  09000.  02800.  01481.  00600.  00150. 

UNLOADING  RATE  (EMPTY) 

URE  COAL  STONE  GRAIN  U  BULK  G  CARGO 

02800,  01848.  00700.  01266.  00143.  00150. 

02800.  01849.  00700.  01246.  00143.  00130. 

02800.  01848.  00700.  01266.  00143.  00150. 

11200.  06720.  11200.  01266.  00143.  00130, 

HUUR8  PER  HO.  PER  SEASON  EXTENSION  (HKS) 


JAN 

FEB  HA* 

APR 

APR 

NAY  JUN  JUL  AUG  StP 

UCT 

NOU 

DEC 

DEC 

OOO. 

000.  000. 

000. 

348. 

723.  704.  728.  724.  696. 

717. 

694. 

360. 

000. 

URL  EXT 

000. 

000. 

000. 

000. 

348. 

723.  704.  728.  724.  698. 

717. 

694. 

360. 

000, 

COAL 

000. 

000.  000. 

000. 

348. 

723.  704.  728.  724.  690. 

717. 

6V4. 

360. 

000. 

STUNE 

000. 

000.  000. 

000. 

340. 

723.  704.  728.  724.  690. 

717. 

694. 

360. 

000, 

GRAIN 

000. 

000.  000. 

000. 

340. 

725.  704.  728.  724.  698. 

717. 

694. 

360* 

000, 

U  BULK 

000. 

000.  000. 

000. 

348. 

723.  704.  728.  724.  698. 

717. 

694. 

360. 

OOO. 

0  CARGO 

000 9 

000.  000. 

189. 

348. 

725.  704.  720.  724.  698. 

717. 

694. 

360. 

134. 

EXT.  2 

ooo# 

000.  00 0. 

189. 

340. 

725.  704.  728.  724.  698. 

717. 

694. 

360. 

134. 

000  9 

000.  000. 

189. 

340. 

723.  704.  720.  724.  6V8. 

717. 

694. 

340. 

134. 

000. 

000 .  000 . 

189. 

348. 

/ 725.  704.  728.  724.  698. 

717. 

694. 

360, 

134. 

000. 

000. 

000. 

189. 

348. 

723.  704.  728.  724.  690. 

717. 

694. 

360. 

134. 

000. 

000.  000. 

189. 

348. 

725.  704.  728.  724.  698. 

717. 

694, 

360, 

134. 

26 4  . 

000 . 

000. 

189. 

340. 

725.  704.  728.  724.  698. 

717. 

694. 

360. 

134. 

EXT.  3 

26 4. 

000. 

000. 

189. 

346. 

723.  704.  728.  724.  690. 

717. 

694, 

360. 

134. 

000. 

000.  000. 

000. 

340. 

723.  704.  728.  724.  696. 

717. 

694. 

360. 

OOO. 

C-7 


EXT.  4 


000. 

OOO. 

OOO. 

ooo. 

348. 

725. 

704. 

728. 

724. 

698. 

717. 

694. 

360. 

OOO. 

000. 

OOO. 

OOO. 

ooo. 

348. 

725. 

704. 

728. 

724. 

690. 

717. 

694. 

360. 

OOO. 

ooo. 

OOO. 

OOO. 

ooo. 

348. 

723. 

704. 

728. 

724. 

690. 

717. 

694. 

360. 

OOO. 

264. 

275. 

ooo. 

189. 

348. 

725. 

704. 

728. 

724. 

698. 

717. 

694. 

360. 

134. 

EX 

264. 

273. 

ooo. 

189. 

348. 

723. 

704. 

728. 

724. 

698. 

717. 

694. 

360. 

134. 

OOO. 

OOO. 

ooo. 

ooo. 

348. 

725. 

704. 

720. 

724. 

690. 

717. 

694. 

360. 

OOO. 

000. 

OOO. 

ooo. 

ooo. 

348. 

723. 

704. 

728. 

724. 

698. 

717* 

694. 

360. 

OOO. 

OOO. 

OOO. 

ooo. 

ooo. 

348. 

725* 

704. 

720. 

724. 

698. 

717. 

694. 

360. 

OOO. 

OOO.  OOO.  OOO.  OOO.  348.  725.  704.  728. 
VESSEL  SPEED  BY  MONTH  AND  CLASS  <VSA) 

724. 

690. 

717. 

694. 

360. 

OOO. 

JAN 

FEB 

MAR 

APR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

ULT 

NOV 

DEC 

DEC 

00.0 

00.0 

00.0 

00.0 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.00 

4 

00.0 

00.0 

00,0 

00.0 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

13.70 

5 

00.0 

00.0 

00.0 

00.0 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14,7 

14.7 

14.7 

14.40 

6 

00.0 

00.0 

00.0 

00.0 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.00 

7 

00.0 

00.0 

00.0 

10.7 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.00 

00.0 

00.0 

00.0 

11.8 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

13.70 

00.0 

00.0 

00.0 

13.4 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.40 

00.0 

00.0 

00.0 

12.2 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14,7 

14.7 

14.7 

14.00 

11.6 

00.0 

00.0 

10.7 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.00 

12.7 

00.0 

00.0 

11.8 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

13.70 

13.9 

00.0 

00.0 

13.4 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.40 

13. 1 

00.0 

00.0 

12.2 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.00 

11.6 

08.7 

00.0 

10.7 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.00 

12.7 

09.5 

00.0 

11.8 

14.7 

14.7 

14.7 

14.7 

14,7 

14.7 

14.7 

14.7 

14.7 

13.70 

13. V 

12.0 

00.0 

13.4 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.40 

13.1  09.9 
RELATIVE  1 

00.0  12.2  14.7 

demand  indexes  < 

14.7 

(DIN) 

14.7 

14.7 

14.7 

14.7 

14.7 

24.  7 

14.7 

14.00 

JAN 

FEB 

MAR 

E.AP 

L.AP 

MAY 

JUN 

JLY 

AUG 

SEP 

OCT 

NOV 

E.DC 

L  •  DC 

00.0 

00.0 

00.0 

00.0 

07.1 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

06.0 

00.0 

EXT 

00 . 0 

00.0 

00.0 

06.0 

07.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

08.0 

07.0 

EXT 

0  6.0 

00.0 

00.0 

06.0 

07.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

08.0 

07.0 

EXT 

07. 0 

06.0 

00.0 

07.0 

06.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

08.0 

07.0 

EXT 

VESSEL  RETIREMENT  FRACTIONS  <PO> 


4 

5  4  7 

YEAR 

0.00 

0.00  0.00  0.00 

1978 

0.56 

0.30  0 . JO  0.00 

1985 

1.00 

O.SO  0.30  0.00 

1990 

1.00 

0.80  O.SO  0.10 

2000 

1.00 

0.85  0.80  0.30 

2010 

)  .00 

0.95  0.85  0.30 

2070 

1  .00 

1.00  0.95  0.80 

2030 

1  .00 

i.oo  l.oo  o.as 

2040 

1.00 

1.00  1.00  0.90 

2050 

BABE 

YEAR  FLEET  <  8ASEFT  > 

4 

5  4  7 

6.10 

1.40  0.00  8-20 

ORE 

1.00 

0.40  0.00  1.50 

COAL 

2.00 

2.00  0.00  0.20 

STONE 

A.  90 

5.80  21.00  10.40 

GRAIN 

0.40 

1.10  4.40  0.40 

0  BULK 

3.20 

O.SO  10.10  0.00 

G  CARGO 

BIASED  TRAFFIC  FACTOR  ( DTF ) 


JAN 

FEB 

MAR 

E.AP 

L.AP 

MAY 

JUN 

JLY 

AUG 

SEP 

OCT 

NOV 

E.DC 

L .  DC 

0.00 

0.00 

0.00 

0.00 

0.60 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.75 

0.00 

EXT 

0.00 

0.00 

0.00 

0.50 

0.10 

0.00 

0.00 

0.00 

o.oo 

0.00 

0.00 

0.00 

0. 10 

0.50 

EXT 

0.50 

0.00 

0.00 

0.50 

0.10 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.10 

0.00 

EXT 

0.00 

0.50 

0.00 

0.50 

0. 10 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.10 

0.00 

EXT 

EXTENDED  SEASON  DISTRIBUTION  FRACTIONS 
J-l  F- 2  H»3  EaP«4  LDEC-5 

0.0000  0.0000  0.0000  0.3000  0.3000 
O.SOOO  0.0000  0.0000  0.2300  0.2300 
0.3333  0.3333  0.0000  0.16*7  0.1667 


CAPACITY  INCREASE  WITH  DEPTH  < SHORT  TONS  PER  INCH) 


4 

3 

6  7 

0.00 

91.00 

61.00  113*10 

1 

1 

0.073 

0.073 

CAPACITY  EXPANSION?  1-YES'O-NO 
CAPACITY  EXPANSION  MEASURE 
LOCKING  TIME 

TRAVELING  KEVELS 

0.030 

0.030 

REDUCTION  FACTORS 

INCREASE  SHIP  SPEED 

0*030 

0.023 

FASTER  DUMP-FILL 

0.030 

0.030 

TRAFFIC  CONTROL 

0.130 

0.130 

MAXIMUM  UTIL11Y 

!S 

1 

3 

32.0 

O 

0 

2 

11 

0.70  0 


LOCKING  TINE  REDUCTION  SELECTOR 
CAPACITY  EXPANSION? 

INCREASE  ALLOWABLE  DRAFT 
NEW  DRAFT 

DEEPER  DRAFT  AND  LARGER  SHIPS 
CAPACITY'  EXPANSION  MEASURE  2 
BUILD  LARGER  LULKS 
MAXIMUM  SHIP  CLASS 
70  0.70  0.70  0.70  2BHF 


EXT. 


EXT. 


EXT. 


EXT. 


1 

2 

3 

4 


1 

2 

3 

4 


1 


2 


3 


4 


C-8 


FLEET  MIX  WILDING  FACTORS 


0 Hk 

COAL 

STONE 

GRAIN 

OBULK 

GCAftGO 

CLASS 

0.00 

0.00 

0.23 

0.00 

0.20 

0.10 

4 

0.00 

0.00 

0.03 

0.00 

0.30 

0. 10 

3 

0.10 

o.os 

0. 10 

0.13 

0.30 

0.40 

4 

O.  10 

0.33 

0.40 

O.OS 

0.20 

0.03 

7 

0.00 

0.10 

0.00 

0.00 

0.00 

0.30 

8 

0. 00 

0.00 

0.00 

o.oo 

0.00 

0.03 

9 

0.40 

0.40 

0.00 

0..  .0 

0-00 

0.00 

10 

0.20 

0.10 

0.00 

0.20 

0.00 

0.00 

11 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

12 

SHIP  CARRYING  CAPACITIES 


8 

9 

10 

11 

12 

28000.  43000. 

40000. 

72000. 

90000. 

ORE 

24000.  28000. 

40000. 

72000. 

90000 . 

COAL 

28000.  43000. 

40000. 

72000. 

90000. 

STONE 

24000. 

28000. 

40000. 

72000. 

90000 . 

GRAIN 

24000.  28000. 

40000. 

72000. 

90000 . 

0  BULK 

24000. 

28000. 

40000. 

72000. 

90000 . 

G  CARGO 

LUCKING  TINES  (NORMAL ) 

4 

3 

4 

7 

8 

9 

10 

11 

12 

34  0 

34.0 

38.0 

40.0 

4S.0 

S3 .0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45. 0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

LUCKING  TIMES  <LOW> 

4 

5 

6 

7 

8 

V 

10 

11 

12 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

LUCKING  TIME 

;  (HIGH) 

4 

5 

6 

7 

8 

9 

10 

11 

12 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

?3.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

LUCKING  TIME 

!  STANDARD  1 

DEVIATION 

A 

s 

6 

7 

8 

♦ 

10 

11 

12 

2.7 

2.7 

2.8 

1.0 

2*.  8 

2.8 

2.8 

2.8 

2.8 

2.7 

2.7 

2.8 

3.0 

2.8 

2.8 

2.8 

2.8 

2.8 

2.7 

2.7 

2.8 

3.0 

2.8 

2.8 

2.8 

2.8 

2.8 

2.7 

2.7 

2.8 

3.0 

2.6 

2.8 

2.8 

2.8 

2.8 

LUAD1NG  RATES 


ORE  COAL 

STONE 

GRAIN 

OBULK 

(•CARGO 

CLASS 

2800.  9000. 

2800. 

1481. 

600. 

ISO. 

8 

2800.  9000. 

2800. 

1481. 

600. 

ISO. 

9 

2800.  900 0. 

2800. 

1481. 

600. 

ISO. 

10 

2800.  9000. 

2800. 

1481. 

600. 

ISO. 

11 

2800.  9000. 

2800. 

1481. 

600. 

ISO. 

12 

UNLOADING  RATES 

URE  COAL 

STONE 

GRAIN 

OBULK 

UCANGO 

CLASS 

1)200.  6720. 

6720. 

1266. 

143. 

150. 

8 

>1200.  6720. 

6720. 

1266. 

143. 

150. 

9 

) 1200.  6720. 

6720. 

1266. 

143. 

150. 

10 

11200.  6720. 

6720. 

1266. 

143. 

150. 

11 

11200.  6720. 

6720. 

1266. 

143. 

150. 

12 

VESSEL  SPEED 

JAN  FEB  MAR 

1APR 

2APR  HAY  JUN 

JUL 

AUG 

SEP 

OCT  NOV 

1DEC 

2DEC 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14,9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

RETIREMENT  percentages 


8 

0.0 

9 

0.0 

10 

0.0 

11 

0.0 

12 

0.0 

1978 

0.0 

0.0 

0.0 

0.0 

0.0 

1985 

0.0 

0.0 

0.0 

0.0 

0.0 

1990 

0.2 

0.0 

0.0 

0.0 

0.0 

2000 

0.3 

0.0 

0.0 

0.0 

0.0 

2010 

0.8 

0.0 

0.2 

0.0 

0.0 

2020 

0.92 

0.0 

0.3 

0.0 

0.0 

2030 

1 .0 

1.0 

0.5 

0.0 

0.0 

2040 

1.0 

1.0 

0.6 

0.1 

0.0 

2050 

CAPACITY  INCREASE  WITH  DEPTH 
8  ?  10  11  12 


US. AO  1A7.10  207.10  228*60  200.00 


0  CAPACITY  EXPANSION? 


C-9 


ST.  LAWRENCE  RIVER  DATA  FILE 


1.3  GONOGO,  DATA  FILE  IDENTIFIER 

r  hnxinun  vessel  class 

O.l.O.O  SEASON  EXTENSIONS 

l.Q.O  LOCKING  TINES  (NORMAL. LOU. HIGH) 

O. 70. 0. 70. 0. 70. 0. 70. 0.70. 0.70.0. 70. O./O. 0.70  SHIP  UTILIZATION  FACTORS 

1 .00.5. 00. OS. 00. 00. 00. 34. 00. 00. 33. 00. 00 .00. 00  FACTOR. CALFAC.STSF AC. ST&ADD.SrSTEN 

FLEET  NIX  SHIP  BULGING  FACTORS 


URE 

COAL 

STONE 

GRAIN 

08ULK 

GCARGO 

CLASS 

0*00 

0.00 

0.00 

0.00 

0.20 

0.20 

4 

0.20 

0.10 

0.20 

0.05 

0.30 

0.00 

5 

0.00 

0. 10 

0. 10 

0.35 

0.30 

0.80 

6 

0.80 

0.80 

0.70 

0.60 

0.20 

0.00 

7 

CARRYING  CAPACITY  BY  SHIP  CLASS  < IN  SHORT  TONS) 

4  5  6  7 

OVSOO.  21000.  1S000.  27000.  IRON  ONE  _  STONE 
OB 700.  14000.  15000.  21000.  COAL  .  GRAIN 
OB/OO.  14000.  15000.  21000.  BULK  .  GENERAL  CARGO 
TRANSIT  DISTRIBUTION  FACTOR  FUR  VALIDATION 


JAN 

FEB 

HA  R 

APR 

APR 

HAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NUU 

DEC 

DEC 

000 

.000 

.000 

.020 

.040 

.130 

.124 

.  124 

.124 

.124 

.  124 

.  130 

.040 

.020 

000 

.000 

.000 

.03a 

.045 

.125 

.120 

.120 

.120 

.120 

.  120 

.125 

.040 

.035 

000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.  000 

.000 

.000 

.000 

.000 

CARGO  PROJECTIONS  «*** 

1970 

MSS  (SHORT  TONS 

/  YEAR) 

MOWN BOUND 

15549.  2365. 

2883. 

6666. 

1282. 

110. 

0. 

809. 

1 . 

889. 

1.  1127. 

2675. 

1118. 

194. 

MU 

1V70 

MSS 

UP BOUND 

0.  0. 

6. 

0. 

0. 

46. 

16592. 

17. 

1003. 

1985. 

107.  827. 

2366. 

1868. 

3723. 

BBSS 

1985 

SMS  . 

UUWNBOUND 

20034.  1704. 

4283. 

7252. 

1290. 

112. 

0. 

861 . 

1. 

965. 

1.  1267* 

3131. 

1220. 

306. 

till 

1985 

MSB 

UP BOUND 

0.  0. 

8. 

0. 

0. 

49. 

16015. 

16. 

1095. 

2100. 

132.  922. 

2406. 

2038. 

8610. 

till 

1990 

BBSS 

UUWNBOUND 

22478.  1807. 

5463. 

6237. 

1311 . 

126. 

0. 

1050. 

1 . 

1021 . 

1.  1378. 

3489. 

1297. 

314. 

till 

1990 

BBSS 

UP BOUND 

0.  0. 

20. 

0. 

0. 

55. 

19873. 

18. 

1161. 

2181. 

151.  996. 

2441. 

2165. 

7066. 

*«** 

2000 

BBSS 

UUWNBOUND 

23337.  1991. 

6284. 

5866. 

*337  • 

139. 

0. 

1234. 

1. 

1124. 

2.  1626. 

4140. 

1460. 

403. 

till 

2000 

BBSS 

UP BOUND 

0.  0. 

23. 

0. 

0. 

62. 

20263. 

18. 

1279. 

2334. 

200.  1150. 

2490. 

2430. 

7432. 

BBSS 

2010 

BBSS 

UUWNBOUND 

25081.  2112. 

7040. 

6405. 

1364. 

157. 

0. 

1466. 

2. 

1235. 

2.  1957. 

4831 . 

1645. 

529. 

im 

2010 

BBBB 

IIP  BOUND 

o.  p. 

25. 

0. 

0. 

69. 

22495. 

19. 

1411. 

2500. 

256.  1321. 

2559. 

2727. 

9237. 

BBSS 

2020 

BBBB 

UOWNBOUND 

26898.  2154. 

7647. 

7062. 

1391. 

100. 

0. 

1742. 

3. 

1358. 

2.  2418. 

5565. 

1852. 

628. 

till 

2020 

BBBB 

UP BOUND 

0.  0. 

25. 

0. 

0. 

00. 

24860. 

19. 

1556. 

2679. 

327.  1524. 

2635. 

3060* 

7588. 

% 

III! 

2030 

BBSS 

UOUNBOUND 

29381.  2198. 

8296. 

7712. 

1419. 

206. 

0. 

20*71 . 

2. 

1494. 

2.  3079. 

6449. 

2086. 

875. 

till 

2030 

BBBB 

yp BOUND 

0.  0. 

25. 

0. 

0. 

90. 

27309. 

20. 

1715. 

2875. 

418.  1768. 

2728. 

3435. 

11890. 

Kll 

2040 

BBBB 

UUWNBOUND 

31864.  2242. 

0946. 

0341. 

1440. 

236. 

0. 

2460. 

3. 

1646. 

2.  4051. 

7474. 

2350. 

1171 . 

tm 

2040 

BBBB 

UP BOUND 

0.  0. 

25. 

0. 

0. 

103. 

30067. 

20. 

1890. 

3087. 

534.  2061. 

2042. 

3857. 

15603. 

SMB 

2050 

BBBB 

C-TO 


DUNN BOUND 

34209.  2287.  10244.  V1O0.  1462.  270.  0.  2923.  4.  1017. 

i.  3500.  8445.  2440,  1551, 

*4*4  2050  444* 

OP BOUND 

0.  0.  25.  0.  0.  119.  33014.  21.  2004.  3319. 

4H2.  2414.  2982.  4331.  1V4V1. 

HOURS  AVAILABLE  F OR  LOCKING  OPERATIONS  BY  MONTH 
•JAN  FEB  MAR  APR  APR  MAY  JUN  JUL  AUG  SEPT  OCT  NOV  DEC  UEC 
24.2  23.0  23.7  23.2  24.2  23.2  23.3  23.3  23.2  24.2  24.2  22.9  23.2  23.2 
LOCKING  TIME  IN  MINUTES  BY  SHIP  CLASS 


4 

5 

6 

7 

SHIP 

CLASS 

0034. 

0034. 

0039. 

0041. 

DOWN 

FOR 

CONSTRAINING 

LOCK 

0034. 

0034. 

0040. 

0041. 

UP 

0031. 

0031. 

0036. 

0037. 

DOWN 

FOR 

NON- CONS TRAINING  LOCK 

0031. 

0031. 

0034. 

0037. 

UP 

LOW  TIMES 

4 

5 

6 

7 

SHIP 

CLASS 

0034. 

0034. 

0038. 

0040. 

DOWN 

FOR 

CONSTRAINING 

LUCK 

0033. 

0033. 

0039. 

0040. 

UP 

0031, 

0031. 

0035. 

0034. 

DOWN 

FOR 

NON-CONSTRAINING  LUCK 

0031 . 

0031. 

0035. 

0036. 

UP 

NIGH  TINES 

4 

5 

6 

7 

SHIP 

CLASS 

0035. 

0035. 

0040. 

0042. 

DOWN 

F  Ok 

CONSTRAINING 

LOCK 

0035 . 

0035. 

0041. 

0041 . 

UP 

0032. 

0032. 

0037. 

0039. 

DOWN 

FUR 

NON-CONSTRAINING  LUCK 

0032. 

0032. 

0037. 

0037. 

UP 

LUCKING  TIME  STANDARD  DEVIATION  IN  MINUTES  BY  SHIP 

CLASS 

4 

5 

6 

7 

SHIP 

CLASS 

002.7 

002.7 

002.8 

003.0 

DOWN 

FOR 

CONSTRAINING 

LUCK 

002.7 

002.7 

002.8 

003.0 

UP 

002.3 

002.3 

002.  7 

002.0 

DOWN 

FOR 

NON-CONSTRAINING  LUCK 

002.3 

002.3 

002.7 

002 . 0 

UP 

VALIDATION  BIAS  TRAFFIC  FACTORS 
E.AP  L.AP  E.DC  L.DC 
01.00  00.80  00.20  00.80 
TURNBACK  TIME  IN  MINUTES  BY  LOCK 
CUN.  NO N-C. 

0000.  0000.  0000. 

SHIP  COST  < 4/HOUR)  BY  SHIP  CLASS 

4  5  4  7  0  9  10  11  SHIP  CLASS 

000373.  Q00394 •  000254.  000435.  000423.  000553.  0005/9.  000432.  OPERA T 1HG _£1#81 
000207.  000354.  000230.  000430.  000493.  000630.  000/67.  ouOb//.  CAPITAL  COST 
NON-COMMERCIAL  CRAFT  DAILY  ARRIVAL  .  ICE  LOCKAGES 

JAN  FEB  MAR  APR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC  DEC 

00.0  00.6  00.0  00.0  00.0  00.0  01.0  01.5  01.5  01.0  00.0  00.0  00.0  00.0  UP 

02.0  03.0  03.0  01.0  00.0  00.0  01.0  01.5  01.5  01.0  00.0  00.0  00.0  00.0  UN 

LOADING  FACTOR  -  FLOAD 

0  C  8  G  OB  GC 

1.001.001.001.000.850.05 

ONE  WAY  DISTANCES! DISTN) 


ORE 

COAL 

STONE  GRAIN 

0  BULK 

G  CARGO 

01029. 

00237. 

00107.  01412. 

00542. 

01000. 

DN 

00580. 

0038,. 

00589.  01043. 

00589 . 

00604 . 

UP 

LOADING  RATE 

(FILL) 

ORE 

COAL 

STONE  GRAIN 

0  BULK 

G  CARGO 

02800. 

09000. 

02800.  01481. 

00600. 

00150. 

4 

02800. 

09000. 

02000.  01401. 

00600. 

00150. 

5 

02800. 

09000. 

02800.  01481. 

00600 . 

00150, 

6 

02000. 

09000 . 

02000.  01481. 

00600 . 

00150. 

7 

UNLOADING  RATE  (EMPTY) 

ORE 

COAL 

STONE  GRAIN 

0  BULK 

G  CARGO 

02800. 

01840. 

00700.  01266. 

00143. 

00150. 

4 

02800. 

01048. 

00700.  01266. 

00143. 

00150. 

5 

02800. 

01048. 

00700.  01266. 

00143. 

00150. 

6 

11200. 

06720. 

11200.  01266. 

00143. 

00150. 

7 

HOURS 

PER  MO. 

PER  SEASON  EXTENSION 

(HRS) 

JAN 

fn 

MAR 

APR 

APR 

NAT  JUN,  JUL  AUG 

SEP 

OCT 

NOV 

DEC 

DEC 

000. 

ooo.  ooo. 

ooo. 

347. 

718.  498.  722.  718. 

6 VO,  714. 

600. 

339. 

OOO. 

ore  E'xr. 

000. 

ooo.  ooo. 

ooo. 

347. 

718.  ,98.  722.  718. 

6V0. 

714. 

660. 

359. 

OOO. 

COAL 

000. 

ooo.  ooo. 

ooo. 

347. 

718.  ,98.  722.  718. 

690. 

714. 

680. 

339. 

OOO. 

STONE 

000. 

ooo. 

ooo. 

ooo. 

347. 

718.  ,98.  722.  718. 

690.  714. 

600. 

339. 

OOO. 

GRAIN 

000. 

ooo.  ooo. 

ooo. 

347. 

718.  ,98.  722.  718. 

690.  714. 

660. 

339. 

OOO. 

0  BULK 

000. 

ooo.  ooo. 

ooo. 

347. 

718.  ,98.  722.  718. 

690.  714. 

600. 

359. 

OOO. 

G  CARGO 

000. 

00 0. 

ooo. 

188. 

347. 

718.  ,98.  722.  718. 

690.  714. 

600. 

339. 

131. 

ORE  EXT. 

ooo. 

ooo.  ooo. 

188. 

347. 

718.  ,98.  722.  718. 

690.  714. 

688. 

339. 

131. 

COAL 

000. 

OOO.  00 0. 

180. 

347. 

718.  ,98.  722.  718. 

6 VO.  714. 

680. 

339. 

131. 

SI  ONE 

000. 

ooo. 

ooo. 

180. 

3474 

718.  ,98.  722.  718. 

690,  714, 

680. 

339. 

131. 

GRAIN 

000. 

ooo.  ooo. 

106. 

347. 

718.  698.  722.  718. 

690. 

714. 

600. 

359. 

131. 

0  BULK 

ooo. 

ooo.  ooo. 

180. 

347. 

718.  ,98.  722.  718. 

690. 

714. 

606. 

339. 

141. 

0  CARGO 

294. 

ooo. 

ooo. 

100. 

347. 

718.  ,98.  722.  718. 

6V0.  714, 

600. 

339. 

131. 

ORE  EXT 

254. 

ooo. 

ooo. 

180. 

347. 

718.  698.  722.  718. 

690.  714. 

600. 

359. 

131. 

COAL 

OOO. 

ooo.  ooo. 

OOO. 

347. 

718.  ,98.  722.  718. 

690. 

714, 

680. 

359. 

OOO. 

STONE 

OOO. 

ooo. 

ooo. 

OOO. 

347. 

718.  ,98.  722.  718. 

690. 

714. 

600. 

339. 

OOO. 

GRAIN 

c-n 


000. 

000. 

OOO. 

OOO. 

347. 

718. 

698. 

722. 

718. 

690. 

714. 

608. 

359. 

OOO. 

0 

BULK 

000. 

000. 

OOO. 

OOO. 

347. 

718. 

698. 

722. 

718. 

6V0. 

714. 

668. 

359. 

OOO. 

0 

CARGO 

256. 

267. 

OOO. 

188. 

347, 

718. 

698. 

722. 

718. 

690. 

714. 

688. 

359. 

131. 

ORE  EX- 

256. 

267. 

OOO. 

188. 

347. 

718. 

6V8. 

722. 

718. 

690. 

714. 

680. 

35V. 

1 J1 . 

COAL 

000. 

000. 

OOO. 

OOO. 

347. 

718. 

698. 

722. 

718. 

6  VO. 

714. 

688. 

359. 

OOO. 

STONE 

OOO. 

000. 

OOO. 

OOO. 

347. 

718. 

698. 

722. 

718. 

6V0  • 

714. 

680. 

359. 

OOO. 

GRAIN 

000. 

000. 

OOO. 

OOO. 

347. 

718. 

698. 

722. 

718. 

690. 

714. 

680. 

359. 

OOO. 

0 

BULK 

000. 

OOO. 

OOO. 

OOO. 

347. 

718. 

698. 

722. 

718. 

690. 

714. 

600. 

359. 

OOO. 

G 

CARGO 

VESSEL  SPEED  BY 

MONTH  AND  CLASS  <VSA> 

JAN 

FEB 

MAR 

APR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

ULT 

NOV 

DEC 

DEC 

00.0 

00.0 

00.0 

00.0 

13.9 

13.9 

13. V 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.0 

4 

EXT. 

00.0 

00.0 

00.0 

00.0 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

13.7 

3 

00.0 

00.0 

00.0 

00.0 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.4 

6 

00.0 

00,0 

00  .p 

00.0 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.  7 

14.0 

7 

00.0 

00.0 

00.0 

10.7 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.0 

4 

EXT 

00.0 

00.0 

00.0 

11.8 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

13.7 

5 

00.0 

00,0 

00.0 

13.4 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.4 

6 

00.0 

00.0 

00.0 

12.2 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.0 

7 

11.6 

00,0 

00.0 

10.7 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

*3.9 

13.9 

13. V 

13.0 

4 

EXT 

12.7 

00.0 

00.0 

11.8 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

13.7 

5 

13.9 

00.0 

00.0 

13.4 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.4 

6 

13.1 

00.0 

00.0 

12.2 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.0 

7 

J  1  .6 

08.7 

00.0 

10.7 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.9 

13.0 

4 

EXT. 

12.7 

09.5 

00.0 

11 .8 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

13.7 

5 

13.9 

12.0 

00.0 

13.4 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.4 

6 

13.1 

09.9 

00.0 

12.2 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.7 

14.0 

7 

RELATIVE  DEMAND  INDEXES 

(DIN) 

JAN 

FEB 

MAR 

E.AP 

L.AP 

MAY 

JUN 

JLY 

AUG 

SEP 

OCT 

NOV 

E .  DC 

L  .DC 

00.0 

00.0 

00.0 

00.0 

06.2 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

06.3 

00.0 

EXT 

.  1 

00.0 

00,0 

00.0 

06.0 

07.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

08.0 

07.0 

EXT 

.  2 

06.0 

00.0 

00.0 

06.0 

0/.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

08.0 

07.0 

EXT 

.  3 

<»/ .  0 

06.0 

00.0 

06.0 

07.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

10.0 

08.0 

07.0 

EXT 

.  4 

VESSEL  RETIREMENT  FRACTIONS  <P0> 

4 

5 

6 

7 

YEAR 

0.00 

0.00 

0.00 

0.00 

1978 

0.56 

0.30 

0.20 

0.00 

1905 

1.00 

0.50 

0.30 

0.00 

1990 

l  .00 

0.80 

0.50 

0.00 

2000 

1.00 

0.85 

0.80 

0.20 

2010 

1.00 

0.95 

0.85 

0.30 

2020 

1 .00 

1.00 

0.95 

0.80 

2030 

1.00 

1.00 

1.00 

0.85 

2040 

1  .00 

1.00 

1.00 

0.90 

2050 

BASE 

YEAR 

FLEET  < Baser T) 

4 

5 

6 

7 

0.00 

5.70  0.00  6 . 

,40 

ORE 

o.vo 

0.30  0.00  0. 

,50 

COAL 

0.30 

0.70  0.40  0. 

,  10 

STONE 

11.20  4.70  22. 

10  7. 

90 

GRAIN 

2.60 

0.40 

1  7.40  0. 

00 

0  BULK 

4.20 

0.70  It. 

40  0, 

,00 

b  CARGO 

BIASED  TRAFFIC 

FACTOR  (BTF) 

JAN 

FEB 

MAR 

E.AP 

L.AP 

MAY 

JUN 

JLY 

AUG 

SEP 

OCT 

NOV 

E .  DC 

L.DC 

0.00 

0.00 

0.00 

0.00 

0.90 

0.00 

0. 00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.50 

0.00 

EXT 

.  1 

0.00 

0.00 

0.00 

0.50 

0. 10 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.10 

0.00 

EXT 

•  2 

0.50 

0.00 

0.00 

0.50 

0. 10 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.10 

0.00 

EXT 

.  3 

0.00 

0.50 

0.00 

0.50 

0.10 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.  10 

0.00 

EXT 

.  4 

EXTENDED  SEASON  DISTRIBUTION  FRACTIONS 
J»1  F«2  M»3  EAPR-4  LDE'C*5 

0.0000  0.0000  0.0000  0.5000  0.5000  I SN1 

0.5000  0.0000  0.0000  0.2500  0.2500  ISN3 

0.3333  0.3333  0.0000  0.1667  0.1667  ISN4 

CAPCITY  INCREASE  WITH  DEPTH  (SHORT  TONS  PER  INCH) 

4  5  6  7 

0.00  91.60  61.80  113.10 

1  CAPACITY  EXPANSION?  l-YEStO»NO 

1  CAPACITY  EXPANSION  MEASURE 

0.075  0.075  LOCKING  TINE  T 

0.025  0.025  REDUCTION  FACTORS  1 


LOCKING  TINE  REDUCTION  SELECTOR 
CAPACITY  EXPANSION? 

INCREASE  ALLOWABLE  DRAFT 
NEW  DRAFT 

DEEPER  DRAFT  AND  LARGER  SHIPS 
CAPACITY  EXPANSION  MEASURE  2 
BUILD  LARGER  LOCKS 
MAX I HUH  SHIP  CLASS 


TRAVELING  KfcVELS 
INCREASE  SHIP  SPEED 
FASTER  DUNP-FILL 
TRAFFIC  CONTROL 
HAX 1 HUM  UTILITY 


0.70  0.70  0.70  0.70  0.70 


C-l  2 


FLEET  MIX  BUILDING  FACTORS 

URL  COAL  bTONE  GRAIN  OBULK  GCARGO  CLASS 


0.00 

0.00 

0.25 

o.oo 

0.  20 

0.10 

4 

o.oo 

0.00 

0.05 

0.00 

0.30 

0.  10 

5 

O.  10 

0.05 

0.  10 

0.15 

0.30 

0.  40 

6 

0.  to 

0.35 

0.60 

0.05 

0.20 

0.05 

7 

0.00 

0.10 

0.00 

0.00 

0.00 

0.30 

8 

0.00 

0.00 

0.00 

0.00 

0.  00 

0.05 

9 

0.  AO 

0.40 

0.00 

0.60 

0.00 

0.00 

10 

0.20 

0.  10 

0.00 

0.20 

0.00 

0.00 

11 

o.oo 

0.00 

0.00 

0.00 

0.00 

0.00 

12 

SHIP  CARRYING  CAPACITIES 

8 

9 

10 

11 

12 

28000 

.  45000 

«  60000.  72000. 

VOOOO. 

ORE 

24000 

.  28000 

.  60000.  72000. 

VOOOO. 

COAL 

28000 

.  45000 

.  60000.  72000. 

VOOOO . 

STONE 

24000 

.  28000 

.  60000.  /2000 • 

90000. 

GRAIN 

24000 

.  28000 

.  60000.  /2G00. 

90000 . 

U  BULK 

24000 

.  28000 

i.  60000.  72000. 

90000. 

G  CARGO 

LUCKING  TIMES  (NORMAL) 

4 

5 

6 

7 

8 

V 

10 

11 

12 

34. 0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

.14.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61 .0 

73.0 

.14.0 

34.0 

3b.  0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

LUCKING  TIMES  (LOW) 

4 

5 

A 

7 

8 

V 

10 

11 

12 

.14.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61 .0 

73.0 

.14.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.  D 

61.0 

73.0 

LUCKING  TIME 

(HIGH) 

4 

5 

6 

7 

8 

9 

10 

11 

12 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

.14.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

.14.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61 .0 

73.0 

34.0 

34.0 

38.0 

40.0 

45.0 

53.0 

57.0 

61.0 

73.0 

LUCKING  TIME 

STANDARD  1 

DEVIATION 

4 

5 

6 

7 

8 

V 

10 

11 

12 

2.7 

2.7 

2.8 

3.0 

2.8 

2.8 

2.8 

2.8 

2.8 

2.7 

2.7 

2.8 

3.0 

2.8 

2.8 

2.8 

2.8 

2.8 

2.7 

2.7 

2.8 

3.0 

2.8 

2.8 

2.8 

2.8 

2.8 

2.7 

2.7 

2.8 

3.0 

2.8 

2.8 

2.8 

2.8 

2.8 

l  UADING  RATES 


ORE  COAL 

STONE 

GRAIN 

OBULK 

GCARGO 

CLASS 

2800.  9000. 

2800. 

1481  . 

600. 

1 50 . 

8 

2800.  9000. 

2800. 

1481. 

600. 

150. 

9 

2800.  9000. 

2800. 

1481 . 

600. 

150. 

10 

2800  9000. 

2800. 

1481 . 

600. 

150. 

11 

2800.  9000. 

2800. 

1481 . 

600. 

150. 

12 

UNLOADING  RATES 

ORE  COAL 

STONE 

GRAIN 

OBULK 

GCARGO 

CLASS 

11200.  6720. 

6720. 

1266. 

143. 

150. 

8 

11200.  6720. 

6720. 

1266. 

143. 

150. 

9 

11200.  6720. 

6720. 

1266. 

143. 

150. 

10 

11200.  6720. 

6720. 

1266. 

143. 

150. 

11 

1x200.  6720. 

6720. 

1266. 

143. 

150. 

12 

VESSEL  SPEED 

JAN  FED  MAR 

1  APR 

2APR  MAY  JUN 

JUL 

AUG 

SEH 

UCT  NOV 

1  DEC 

2PEC 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.0 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.0 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

0.0  0.0  0*0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

0.0  0.0  0.0 

14.2 

14.9  14 

.9  14.9 

14.9 

14.9 

14.9 

14.9  14.9 

14.9 

14.8 

RETIREMENT  PERCENTAGES 


H 

0.0 

9 

0.0 

10 

0.0 

11 

0.0 

12 

0.0 

1978 

0.0 

0.0 

0.0 

0.0 

0.0 

1985 

0.0 

0.0 

0.0 

0.0 

0.0 

1990 

0.2 

0.0 

0.0 

0.0 

0.0 

2000 

0.3 

0.0 

0.0 

0.0 

0.0 

2010 

0.8 

0.0 

0.2 

0.0 

0.0 

2020 

0.92 

0.0 

0.3 

0.0 

0.0 

2030 

J  .0 

1.0 

0.5 

0.0 

0.0 

2040 

1  .0 

1.0 

0.6 

0. 1 

0.0 

2050 

CAPACITY  INCREASE  KITH  DEPTH 
H  9  10  11  12 

US. AO  167 . 10  207.10  228.  AO  250.00 
O  CAPACITY  EXPANSIONf 


C-13 


APPENDIX  D 

SAMPLE  OUTPUT  LISTING 
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